AD-A206  126 


STUDY  REPORT  /•.  r:'>“  ;  *  : 

CAA-SR-89-3  i  ; 


© 


COMBAT  IDENTIFICATION  SYSTEMS 
COMO  INTEGRATED  AIR  DEFENSE 
MODEL  EVALUATION  (CISE)  STUDY 

FEBRUARY  1989 


PREPARED  BY 

FORCE  SYSTEMS  DIRECTORATE 

US  ARMY  CONCEPTS  ANALYSIS  AGENCY 
8120  WOODMONT  AVENUE 
BETHESDA,  MARYLAND  20814-2797 


for  public  rolea**; 

Z-..  .,bi  tion  Unlimited 


DTIC 

jf^ELECTE 
Si  APR  0  3198^ 


& 


89  3  31  050 


DISCLAIMER 


The  findings  of  this  report  are  not  to  be  construed  as  an 
official  Department  of  the  Army  position,  policy,  or  decision 
unless  so  designated  by  other  official  documentation. 
Comments  or  suggestions  should  be  addressed  to: 

Director 

US  Army  Concepts  Analysis  Agency 
ATTN:  CSCA-FS 
8120  Woodmont  Avenue 
Bethesda,  MD  20814-2797 


CAA-SR-89-3 


UNCLASSIFIED 

SECURITY  CLASSIFICATION  OF  THIS  PAGE 


t  a  REPORT  SECURITY  CLASSIFICATION 

UNCLASSIFIED 


2a  SECURITY  CLASSIFICATION  AUTHORITY 


2b.  DECLASSIFICATION/DOWNGRADING  SCHEDULE 


4  PERFORMING  ORGANIZATION  REPORT  NUM8£R<S) 

CAA-SR-89-3 


6a  NAME  OF  PERFORMING  ORGANIZATION 

US  Army  Concepts  Analysis 
Agency 


6c.  ADDRESS  (City.  State,  and  ZIP  Code) 

8l2r  ■ 


Bethesda,  MO  20814-2797 


REPORT  DOCUMENTATION  PAGE 


lb.  RESTRICTIVE  MARKINGS 


Form  Approved 
OMB  No  0704-01 88 


3  oistribution/availabiuty  of  report 

Approved  for  public  release:  distribution 
unlimited 


5.  MONITORING  ORGANIZATION  REPORT  NUMBER  (S) 


8a.  NAME  OF  FUNDirlG/SPONSORING 
ORGANIZATION 


7b  ADDRESS  (City,  State,  and  ZIP  Code) 


8b.  OFFICE  SYMBOL  19  PROCUREMENT  INSTRUMENT  IDENTIFICATION  NUMBER 
(if  applicable)  1 


8c.  ADDRESS  (City,  St 4  re,  and  ZIP  Code) 


1 1  TITLE  ( Include  Security  Classification ) 

Combat  Identification  Systems  COMO  Integrated  Air  Defense  Model  Evaluation  (CISC)  Study 


10  SOURCE  OF  FUNDING  NUMBERS 


PROJECT 

TASK 

NO. 

NO 

WORK  UNIT 
ACCESSION  NO 


12  PERSONAL  AUTHOR(S) 

Ms.  Diane  L  Buescher,  Mr  Richard  W.  Lennox,  Jr.,  Ms.  Lorie  A.  Latchford,  Ms.  Pamela  J.  Roberts,  Ms.  Tanya  E.  Peltz 


Final  Study  Report  I  from  88  Feb  to  89  Feb 


16  SUPPLEMENTARY  NOTATION 


1989,  February 


COSATI  COOES 


GROUP 


18  SUBJECT  TERMS  (Continue  on  reverse  if  necessary  and  identify  by  block  number) 

.  COMO,  combat  identification,  air  defense,  model, 

sub-group  |  simulation 


19  A8STRACT  (Continue  on  reverse  if  necessary  and  identify  by  block  number) 

The  purpose  of  the  CISE  Study  was  to  install,  test,  and  evaluate  the  Combat  Identification 
Systems  COMO  Integrated  Air  Defense  (CISCIAD)  Model  with  the  goal  of  replacing  the  COMO 
Integrated  Air  Defense  (CIAO)  Model  at  the  US  Army  Concepts  Analysis  Agency  (CAA).  The 
basic  approach  was  to  execute  a  series  of  identical  scenarios  with  both  models  and  compare 
output  results.  The  CISCIAD  Model  was  found  to  contain  numerous  errors  in  the  air-to-air 
logic,  and  the  decision  was  made  to  defer  further  consideration  at  CAA  until  a  later  date 
when  the  model  has  reached  a  better  level  of  maturity.  This  'Study; report  documents  the 
tests  performed  and  the  corrections  made  to  the  model  during  the  course  of  the  study. 


■>  I 


20  DISTRI8UTION/A VAILABILI TY  OF  ABSTRACT 

0  unclassified/unlimited  □  same  as  rpt 


22a  NAME  OF  RESPONSIBLE  INDIVIDUAL 

Ms.  Diane  L.  Buescher 


DO  Form  1473,  JUN  86 


21  ABSTRACT  SECURITY  CLASSIFICATION 

□  oticusers  UNCLASSIFIED 


22b  TELEPHONE  (Include  Area  Code)  I  22c  OFFICE  SYMBOL 

301-295-1652  CSCA-FSC 


Previous  editions  are  obsolete. 


SECURITY  CLASSIFICATION  OF  THIS  PAGE 


STUDY  REPORT 
CAA-SR-89-3 


COMBAT  IDENTIFICATION  SYSTEMS  COMO 
INTEGRATED  AIR  DEFENSE  MODEL  EVALUATION  (CISE) 

STUDY 


February  1989 


Prepared  by 

FORCE  SYSTEMS  DIRECTORATE 

US  An*y  Concepts  Analysis  Agency 
8120  Woodaont  Avenue 
Bethesda,  Maryland  20814-2797 


CAA-SR-89-3 


This  document  was  prepared  as  part  of  an  internal  CAA  project. 


iii 


/'  COMBAT  IDENTIFICATION  SYSTEMS 

8  CAA  *  COMO  INTEGRATED  AIR  DEFENSE 

\  /  MODEL  EVALUATION  (CISE)  STUDY 

STUDY 

SUMMARY 

CAA-SR-89-3 

■   ■■  ■  1 

THE  REASON  FOR  PERFORMING  THE  STUDY  was  to  install,  test,  and  evaluate 
the  Combat  Identification  Systems  COMO  Integrated  Air  Defense  (CISCIAD)  Model 
with  the  goal  of  replacing  the  COMO  Integrated  Air  Defense  (CIAD)  Model  at 
the  US  Army  Concepts  Analysis  Agency  (CAA).  The  CISCIAD  Model  is  a  modified 
version  of  the  CIAD  Model  which  has  been  in  use  at  CAA  since  1985.  A 
modification  contract  was  let  to  Veda,  Incorporated  in  February  1986  by  the 
US  Army  TRADOC  Analysis  Command  -  White  Sands  Missile  Range  (TRAC-WSMR)  for 
the  purpose  of  updating  the  CIAD  Model  with  the  capability  to  simulate  higher 
resolution  command,  control,  and  communications,  airspace  management,  and 
Identification,  friend  or  foe.  The  contract  was  completed  In  June  1987. 

THE  PRINCIPAL  FINDINGS  are  as  follows: 

(1)  The  CISCIAD  Model  was  successfully  installed  on  CAA's  VAX  8600  computer; 
however,  the  initial  release  of  the  model  to  CAA  (October  1987)  contained 
errors  in  the  contractor-added  software.  The  contractor  and  TRAC-WSMR 
continued  to  fix  these  problems  as  well  as  make  other  improvements  to  the 
basic  model  after  releasing  it  to  CAA.  Since  the  model  was  In  such  a 
turbulent  state,  the  CISE  Study  was  put  on  hold  until  TRAC-WSMR  could  release 
a  final  version.  TRAC-WSMR  released  a  final  version  to  CAA  in  July  1988. 

(2)  Comparisons  of  test  results  between  the  CISCIAD  and  CIAD  Models  revealed 
numerous  discrepancies,  mainly  In  the  air-to-air  portion  of  the  models. 
However,  tests  of  the  surface-to-air  and  alr-to-surface  logic  (without 
utilizing  the  new  CISCIAD  Model  features)  produced  fairly  similar  results 
between  the  two  models.  The  fact  that  the  CISCIAD  Model  was  developed  from 
an  earlier  version  of  the  CIAD  Model  than  the  one  In  use  at  CAA  is  the  cause 
of  most  of  the  differences  discovered. 

(3)  At  the  time  of  this  report,  the  decision  was  made  to  defer  further 
consideration  of  the  CISCIAD  Model  at  CAA  until  a  later  date  when  the  model 
has  reached  a  better  level  of  maturity.  The  development  of  CISCIAD  was  a 
highly  ambitious  effort  which  added  a  large  number  of  complex  features  to  an 
already  complex  model.  Common  to  software  development  efforts  of  this 
magnitude  Is  the  need  for  an  extended  test  and  debug  period.  The  proponent 
is  continuing  efforts  to  refine  CISCIAD,  and  the  model  should,  at  some  time 
in  the  future,  prove  to  be  a  powerful  tool  for  supporting  air  defense 
analyses.  When  the  CISCIAD  Model  matures  to  a  more  reasonable  level  of 
reliability,  then  CAA  should  consider  again  acquiring  it  for  evaluation. 
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THE  MAIN  ASSUMPTION  AND  LIMITATIONS  were  that  the  study  was  not  designed 
to  be  an  exhaustive  analysis  nor  a  verification  of  the  CISCIAD  Model.  Since 
the  model  was  accepted  by  TRAC-WSMR,  the  technical  functioning  of  the 
modifications  made  by  the  contractor  was  assumed  to  be  correct.  The  study 
only  examined  the  CISCIAD  Model  output  data  for  reasonableness  as  compared  to 
the  CIAO  Model  results. 

THE  SCOPE  OF  THE  STUDY  included  the  installation  of  the  CISCIAD  Model  on 
CAA's  VAX  8600  computer,  a  statistical  comparison  of  output  between  the 
CISCIAD  and  CIAD  Models,  given  the  same  conditions,  and  an  evaluation  of  the 
new  features  of  the  model  for  producing  reasonable  results  when  compared  to  a 
similar  scenario  using  the  CIAD  Model. 

THE  STUDY  OBJECTIVES  were  to: 

(1)  Install  and  operate  the  CISCIAD  Model  on  CAA's  VAX  8600  computer. 

(2)  Determine  whether  the  output  results  from  the  CISCIAD  and  CIAD  Models 
are  similar  (within  confidence  intervals)  given  the  same  conditions. 

(3)  Evaluate  the  capability  of  the  CISCIAD  Model  to  produce  reasonable 
results  when  utilizing  the  new  features  of  comnand,  control,  and 
communications,  airspace  management,  and  identification,  friend  or  foe. 

THE  BASIC  APPROACH  was  to  evaluate  the  CISCIAD  Model  in  three  steps: 

(1)  Perform  comparison  tests  between  the  CISCIAD  and  CIAD  Models  using  one 
weapon  system  at  a  time. 

(2)  Conduct  a  statistical  analysis  using  a  small  identical  scenario  on  both 
models,  vary  the  Input  parameters,  and  compare  output  results  using  two- 
sample  t- tests. 

(3)  Execute  a  series  of  comparison  runs  using  a  large  scenario  which 
utilizes  the  new  features  of  the  CISCIAD  Model  and  observe  the  effects  on  the 
results  of  the  two  models. 

THE  STUDY  SPONSOR  was  the  Director,  US  Army  Concepts  Analysis  Agency. 

THE  STUDY  EFFORT  was  performed  by  Diane  L.  Buescher,  Richard  W.  Lennox, 

Jr.,  Lorle  A.  Latchford,  Pamela  J.  Roberts,  and  Tanya  E.  Peltz,  Force  Systems 
Directorate,  US  Army  Concepts  Analysis  Agency. 

COMMENTS  AND  QUESTIONS  may  be  addressed  to  the  Director,  US  Army 
Concepts  Analysis  Agency,  ATTN:  CSCA-FSC,  8120  Woodmont  Avenue,  Bethesda, 
Maryland  20814-2797. 


Tear -out  copies  of  this  synopsis  are  at  back  cover. 
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COMBAT  IDENTIFICATION  SYSTEMS  COMO  INTEGRATED  AIR  DEFENSE  MODEL 

EVALUATION  (CISE)  STUDY 

CHAPTER  1 
INTRODUCTION 


1-1.  BACKGROUND 

a.  This  effort  is  a  follow-on  to  the  US  Army  Concepts  Analysis  Agency 
(CAA)  Air  Defense  Models  Modification  (ADM2)  Study  (completed  in  September 
1986).  ADM2  had  an  objective  of  obtaining  a  theater-level  air  defense  model 
for  CAA.  The  "COMO  III  Integrated  Air  Defense  Model  with  Command  and 
Control”  (CIAD)  was  obtained  from  the  US  Air  Force  Operational  Test  and 
Evaluation  Center  (AFOTEC)  to  be  used  in  the  interim  while  a  contract  was  let 
to  upgrade  the  CIAD  Model.  The  upgrade  was  to  include  the  capability  to 
simulate  higher  resolution  command,  control,  and  communications  (C3), 
airspace  management,  and  identification,  friend  or  foe  (IFF). 

b.  The  modification  contract  was  initiated  and  funded  by  the  US  Army 
TRADOC  Analysis  Command  -  White  Sands  Missile  Range  (TRAC-WSMR).  CAA 
assisted  in  developing  the  statement  of  work  and  provided  minimal  assistance 
in  monitoring  the  contract.  The  contract  commenced  in  February  1986  by  Veda, 
Incorporated  with  much  of  the  effort  subcontracted  to  SRS  Technologies.  The 
modified  model,  called  the  Combat  Identification  Systems  COMO  Integrated  Air 
Defense  (CISCIAD)  Model,  was  completed  by  the  contractor  and  accepted  by 
TRAC-WSMR  in  June  1987.  CAA  obtained  a  copy  and  began  installation  of  the 
CISCIAD  Model  In  October  1987.  A  brief  description  of  the  COMO  modeling 
system  is  contained  in  Appendix  D. 

1-2.  PURPOSE.  The  purpose  of  the  study  was  to  install,  test,  and  make 
operational  at  CAA  the  CISCIAD  Model  and  to  evaluate  the  model  by  comparing 
output  results  to  the  CIAO  Model.  The  plan  was  to  replace  the  UAO  Model 
with  the  CISCIAD  Model  when  it  became  operational. 

1-3.  OBJECTIVES.  The  study  objectives  were  to: 

a.  Install  and  operate  the  CISCIAD  Model  on  CAA's  VAX  8600  computer. 

b.  Determine  whether  the  output  results  from  the  CISCIAD  and  CIAD  Models 
are  similar  (within  confidence  intervals),  given  the  same  conditions. 

c.  Evaluate  the  capability  of  the  CISCIAD  Model  to  produce  reasonable 
results  when  utilizing  the  new  features  of  C3,  airspace  management  and  IFF. 

1-4.  SCOPE.  The  scope  of  the  study  included  the  installation  of  the  CISCIAD 
Model  on  CAA's  VAX  8600  computer,  a  statistical  comparison  of  output  between 
the  CISCIAO  and  CIAD  Models,  given  the  same  conditions,  and  an  evaluation  of 
the  new  features  of  the  model  for  producing  reasonable  results  when  compared 
to  a  similar  scenario  using  the  CIAD  Model. 
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1-5.  ASSUMPTIONS  AND  LIMITATIONS.  This  study  was  not  designed  to  be  an 
exhaustive  analysis  nor  a  verification  of  the  CISC IAD  Model.  Since  the  model 
was  accepted  by  TRAC-WSMR,  the  technical  functioning  of  the  modifications 
made  by  the  contractor  was  assumed  to  be  correct.  This  study  only  examined 
the  CISCIAD  Model  output  data  for  reasonableness  as  compared  to  the  CIAD 
Model  results. 

1-6.  SUMMARY  OF  CONTRACTOR  MODIFICATIONS.  Table  1-1  compares  the  new 
contractor-added  features  in  the  CISCIAD  Model  with  the  old  features  in  the 
CIAD  Model. 


Table  1-1.  Summary  of  Contractor  Modifications 


Feature 

CIAD  Model 

CISCIAD  Model 

Command,  control,  and 
communications 

Coordinates  fire  of  high-to- 
medium  altitude  air  defense 
(HIMAD)  units  and 
intercepting  aircraft.  Only 
one  level  of  command  and 
control. 

Added  ability  to  hold  HIMAD 
fire  until  command  center 
has  received  information 
and  identified  target. 

Capable  of  simulating  up  to 
five  levels  of  command. 

Identification,  friend  or  foe 

Simulates  identifying  target 
with  random  draw  against 
input  probabilities  of  correct 
identification  for  Blue  and 

Red  targets. 

Simulates  actual  identifi¬ 
cation  devices  for  both 
ground  units  and  aircraft. 

Airspace  management 

Single  weapons  control 
input  parameter  for  each 
ground  unit  covers  entire 
airspace. 

Capability  to  define  airspace 
volumes  with  different 
weapons  control  orders  in 
effect.  Can  specify  safe 
passage  corridors  for  Blue 
interceptor  flight. 

Non-line-of-sight  weapon 

Does  not  simulate. 

New  generic  weapon  added 

Air  defense  artillery  weapon 

Can  be  simulated  in  more 
detail  with  the  HIMAD 
weapon  but  cannot  simulate 
gun  systems. 

New  generic  weapon  added 
that  can  simulate  either  gun 
or  surface-to-air  missile 
systems. 

Helicopters 

Does  not  simulate. 

Modification  of  the  Red  and 
Blue  aircraft  code  to  simu¬ 
late  helicopters  used  pri¬ 
marily  as  transiting  aircraft 
and  identification  targets. 

Jamming 

Simulates  broadband  noise 
jamming. 

Added  features  to  turn 
jamming  on  at  preplanned 
flight  path  locations  or  when 
detected  by  radars 
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1-7.  APPROACH.  The  approach  was  to  install  the  CISCIAD  Model  on  CAA's  VAX 
8600  computer  and  to  evaluate  the  model  in  three  steps.  The  first  step  was 
to  perform  comparison  tests  between  the  CISCIAD  and  CIAD  Models  using  one 
weapon  system  at  a  time.  The  second  step  involved  a  statistical  analysis 
using  a  small  identical  scenario  for  both  models  and  comparing  the  output 
results  using  two  sample  t-tests.  In  both  the  first  two  steps,  the  new 
features  of  the  CISCIAD  Model  were  disabled  in  order  to  provide  a  similar 
scenario.  Both  Blue  defensive  and  Red  offensive  systems  were  varied  by 
either  including  or  excluding  classes  of  systems  in  the  runs.  The  purpose  of 
these  comparisons  was  to  ensure  that  the  contractor  preserved  the  capability 
of  the  CISCIAD  Model  to  function  as  the  CIAD  Model  since  the  goal  was  to 
replace  it.  The  final  phase  of  the  evaluation  was  to  perform  comparison  runs 
using  a  large  scenario  which  utilized  the  new  features  of  C3,  airspace 
management,  and  IFF  in  the  CISCIAD  Model  to  observe  the  effects  on  the 
results. 
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CHAPTER  2 

MODEL  COMPARISON  TESTS 


2-1.  INTRODUCTION.  This  chapter  contains  a  description  of  the  comparison 
tests  performed  on  the  two  models,  a  discussion  of  the  results  of  those 
tests,  and  a  summarization  of  the  code  corrections  and  updates  made  by  CAA  to 
the  CISC I AD  Model. 

2-2.  APPROACH.  The  approach  was  to  conduct  comparison  tests  between  the  two 
models  using  one  weapon  system  at  a  time  without  utilizing  the  new  features 
of  the  CISCIAD  Model.  The  purpose  of  these  tests  was  to  ensure  that  each 
weapon  system  was  operating  similarly  in  both  models  and  to  help  identify  the 
source  of  discrepancies  if  they  existed. 

2-3.  SCENARIO 

a.  A  test  scenario  was  designed  that  was  large  enough  to  exercise  the 
model's  capabilities  while  still  producing  manageable  computer  run  times. 

The  scenario  is  illustrated  in  Figure  2-1.  The  60-minute  air  raid  consisted 
of  30  Red  defense  suppression  aircraft  targeting  PATRIOT  and  HAWK  fire  units 
followed  by  24  escort  fighters  accompanying  18  bombers  attacking  the  two  rear 
airbases  (AIRR  and  AIRB) .  Aircraft  flew  in  formation  sizes  of  three,  at  200 
meters  per  second  and  at  altitudes  of  200  to  1,500  meters.  The  flight  paths 
of  the  aircraft  are  indicated  by  the  east  to  west  tracks  on  the  map.  The 
raid  was  countered  in  the  forward  area  by  a  short-range  air  defense  (SHORAD) 
system  attrition  zone  and  six  PATRIOT  fire  units.  The  rear  area  defense 
consisted  of  3  PATRIOT  and  4  HAWK  fire  units  and  12  Blue  interceptor  aircraft 
at  the  airbases  and  on  combat  air  patrol  (CAP).  A  forward  ground  sensor  and 
orbiting  Airborne  Warning  and  Control  System  (AWACS)-type  aircraft  (hexagonal 
track)  provided  the  air  picture  to  a  centrally  located  command  and  control 
center  (COMC). 

b.  Test  runs  were  conducted  using  only  the  ground  high-to-medium  altitude 
air  defense  (HIMAD)  fire  units  to  counter  the  threat,  then  those  units  were 
removed  and  replaced  by  Blue  interceptor  aircraft  as  the  only  defense. 
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Figure  2-1.  CIAO/CISCIAO  Comparison  Test  Scenario 


2-4.  MEASURES  OF  EFFECTIVENESS  (MOE).  For  the  comparison  test  runs,  it  was 
important  to  review  many  MOEs  to  determine  whether  the  models  were 
functioning  alike.  Table  2-1  shows  MOEs  chosen  for  the  surface-to-air  and 
air-to-surface  test  runs  using  only  a  HIMAD  defense.  Table  2-2  lists  the 
air-to-air  MOEs  for  the  runs  when  only  the  Blue  interceptors  were  employed  to 
counter  the  threat. 
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Table  2-1.  Measures  of  Effectiveness  (surface-to-air  and 

air-to-surface) 


1.  HIMAD  and  SENSOR  detections 

2.  Targets  dropped  by  HIMAD  and  SENSOR 

3.  Surface-to-air  missiles  aborted 

4.  Surface-to-air  missile  PK  misses 

5.  Antiradiation  missiles  launched  against  HIMADs 

6.  HIMADs  destroyed  by  anti  radiation  missiles 

7.  Forward  HIMAD  surface-to-air  missiles  launched 

8.  Forward  HIMAD  surface-to-air  missile  launch  range  (km) 

9.  Target  aircraft  killed  by  forward  HIMAD 

10.  Target  aircraft  kill  range  (km)  by  forward  HIMAD 

11.  Rear  HIMAD  surface-to-air  missiles  launched 

12.  Rear  HIMAD  surface-to-air  missile  launch  range  (km) 

13.  Target  aircraft  killed  by  rear  HIMAD 

14.  Target  aircraft  kill  range  (km)  by  rear  HIMAD 


Table  2-2.  Measures  of  Effectiveness  (air-to-air) 


1.  Interceptor  aircraft  dispatched  from  base  and  CAP 

2.  Interceptor  aircraft  ground  control  intercept  update 

3.  Targets  detected  by  Blue 

4.  Dogfights  initiated 

5.  Aircraft  killed  In  dogfights 

6.  Special  maneuvers  made 

7.  Interceptors  switching  targets 

8.  Air-to-air  missile  launches 

9.  Blue  air-to-air  missile  launch  range  (km) 

10.  Blue  aircraft  killed  by  air-to-air  missiles 

11.  Red  aircraft  killed  by  air-to-air  missiles 

12.  Range  for  Blue  aircraft  killed  (km) 

13.  Range  for  Red  aircraft  killed  (km) 

14.  Air-to-air  missile  aborts 

15.  Air-to-air  missile  PK  misses 


2-5.  TEST  RESULTS 

a.  Surface-to-air  and  Air-to-surface  Test 

(1)  This  test  included  only  the  PATRIOT  and  HAWK  fire  units,  ground 
sensor,  and  AWACS-type  aircraft  as  the  air  defense.  Many  different  trials 
were  run  using  this  scenario,  and  discrepancies  were  corrected  in  the  CISC  I AD 
model  code  as  needed.  The  final  test  results  for  the  MOEs  are  shown  in  Table 
2-3.  The  means  and  standard  deviations  for  six  replications  using  each  model 
are  presented.  The  decision  to  use  six  replications  was  based  on  a  previous 
statistical  analysis  of  replications  required.  This  analysis  was  performed 
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on  the  CIAD  Model  as  part  of  the  CAA  Air  Defense  Employment  Options  Study, 
CAA-SR-87-24,  September  1987  (LTC  James  N.  Carpenter  (SECRET)).  While,  in 
general,  more  replications  may  be  desirable,  the  expense  in  increased 
computer  time  was  not  justified  for  these  preliminary  test  runs. 


Table  2-3.  Surface-to-air  and  Air-to-surface  Scenario  Test  Results 


Type 

CIAD 

CISCIAD 

Mean 

Standard 

deviation 

Mean 

Standard 

deviation 

HIMAD  and  SENSOR  detections 

540.17 

63.22 

475.17 

115.58 

Targets  dropped  by  HIMAD  and 
SENSOR 

481.33 

56.04 

415.33 

102.96 

Surface-to-air  missiles  aborted 

17.50 

2.95 

12.00 

10.94 

Surface-to-air  missile  PK  misses 

71.33 

9.65 

71.83 

14.47 

Antiradiation  missiles  launched 
against  HIMADs 

7.67 

.82 

7.17 

1.47 

HIMADs  destroyed  by  antiradiation 
missiles 

5.00 

.89 

3.67 

2.16 

Forward  HIMAD  surface-to-air 
missiles  launched 

69.50 

11.11 

84.17 

11.51 

Forward  HIMAD  surface-to-air 
missile  launch  range  (km) 

36.00 

.96 

35.18 

70 

Target  aircraft  killed  by  forward 
HIMAD 

26.83 

2.99 

35.67 

9.03 

Target  aircraft  kill  range  (km)  by 
forward  HIMAD 

31.75 

1.68 

30.00 

89 

Rear  HIMAD  surface-to-air  missiles 
launched 

84.50 

10.69 

65.67 

16.84 

Rear  HIMAD  surface-to-air  missile 
launch  range  (km) 

26.82 

.87 

25.86 

1.60 

Target  aircraft  killed  by  rear 

HIMAD 

38.33 

5.01 

30.33 

5.85 

Target  aircraft  kill  range  (km)  by  rear 
HIMAD 

24.80 

1.03 

22.93 

1.27 
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(2)  The  results  indicate  fairly  good  agreement  between  the  two  models 
in  the  preliminary  tests  of  the  air-to-surface  and  surface-to-air  logic. 

Each  of  the  pairs  of  MOEs  generally  overlap  within  one  standard  deviation. 
Although  the  total  number  of  target  aircraft  killed  is  almost  identical,  the 
CIAD  Model  shows  more  kills  by  rear  HIMADs  than  forward  HIMADs,  while  the 
reverse  is  true  for  the  CISCIAD  Model.  This  discrepancy  warrants  further 
investigation  in  future  tests  of  the  model. 

b.  Air-to-air  Test 

(1)  This  test  scenario  consisted  of  Blue  interceptors,  the  ground 
sensor,  and  AWACS-type  aircraft  countering  the  threat.  The  air-to-air 
engagement  logic  proved  to  be  the  most  difficult  area  in  which  to  obtain 
agreement  between  the  two  models.  This  appears  to  be  the  major  area  of 
modification  to  the  CIAD  Model  by  AFOTEC  after  the  contractor  began  work  on 
the  CISCIAD  Model  in  February  1986.  The  AFOTEC  modifications  to  the  CIAD 
Model  between  February  and  May  1986  were  not  incorporated  by  the  contractor 
into  the  CISCIAD  Model.  During  the  course  of  the  CISE  Study,  CAA  made  many 
updates  and  corrections  to  the  CISCIAD  Model  air-to-air  engagement  logic  in 
an  effort  to  obtain  better  agreement  between  the  models.  These  changes  are 
addressed  later  in  this  chapter  and  in  Appendix  E. 

(2)  The  air-to-air  test  scenario  was  modified  to  include  only  the  24 
escort  aircraft  in  the  attacking  raid  to  more  closely  observe  the  air-to-air 
engagements  and  attempt  to  isolate  the  source  of  the  remaining  discrepancies. 
The  results  of  this  test  are  displayed  in  Table  2-4.  The  means  and  standard 
deviations  are  shown  for  six  replications  of  the  CIAD  Model  run  and  only  five 
replications  for  the  CISCIAD  Model  run.  The  source  of  the  error  in  the  sixth 
replication  was  not  discovered  before  the  decision  was  made  to  end  the  study. 

(3)  The  results  indicate  that  many  problems  still  exist  in  the  air-to- 
air  engagement  logic.  The  CISCIAD  Model  counts  of  "special  maneuvers  made" 
and  "interceptors  switching  targets"  are  excessive.  The  numbers  of  missiles 
launched,  launch  range,  kills  of  Blue  aircraft,  and  range  for  Blue  aircraft 
killed  are  all  lower  in  the  CISCIAD  Model. 
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Table  2-4.  Air-to-air  Scenario  Test  Results 


Type 

CIAD 

CISCIAD 

Mean 

Standard 

deviation 

Mean 

Standard 

deviation 

Interceptor  aircraft  dispatched  from  base 
and  CAP 

18.33 

3.44 

38.00 

9.03 

Interceptor  aircraft  ground  control  intercept 
update 

212.17 

3.31 

448.00 

59  23 

Targets  detected  by  Blue 

9.33 

3.78 

57.00 

6.04 

Dogfights  initiated 

0 

0 

.80 

.84 

Aircraft  killed  in  dogfights 

0 

0 

1.00 

1.22 

Special  maneuvers  made 

16.33 

18.98 

1060.20 

319.61 

Interceptors  switching  targets 

8.17 

8.66 

241.00 

42.69 

Air-to-air  missile  launches 

51.00 

5.73 

39.60 

4.62 

Blue  air-to-air  missile  launch  range  (km) 

13.92 

2.89 

7.11 

1  22 

Blue  aircraft  killed  by  air-to-air  missiles 

11.83 

.41 

.20 

.45 

Red  aircraft  killed  by  air-to-air  missiles 

4.83 

3.43 

13.40 

2.70 

Range  for  Blue  aircraft  killed  (km) 

14.03 

.61 

1.71 

0 

Range  for  Red  aircraft  killed  (km) 

6.74 

2.64 

4.54 

.67 

Air-to-air  missile  aborts 

20.17 

4.49 

16.60 

.55 

Air-to-air  missile  PK  misses 

14.17 

4.75 

10.40 

3.36 

2-6.  SUMMARY  OF  CISCIAD  MODEL  CHANGES.  A  summary  of  the  CAA  modifications 
to  the  CISCIAO  Model  during  the  course  of  the  CISE  Study  is  displayed  in 
Table  2-5.  It  should  be  noted  that  many  of  these  changes  were  based  on 
AFOTEC  modifications  made  to  the  CIAO  Model  that  were  not  made  to  the  CISCIAD 
Model.  A  detailed  list  of  the  actual  modifications  and  the  explanation  for 
each  change  are  contained  in  Appendix  E. 
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Table  2-5.  Summary  of  CISCIAD  Model  Changes 


Model  source  code  area 

Number  of  changes 

Interceptor/escort  engagement  logic 

65 

HIMAD  logic 

18 

Missile  launch/explode  logic 

15 

Command  and  control  center  dispatch  of 
interceptors 

13 

Miscellaneous 

28 

2-7.  SUMMARY 

a.  A  review  of  the  comparison  test  results  identifies  many  CISCIAD  Model 
problem  areas  that  need  to  be  explored.  The  model  requires  further  testing, 
primarily  of  the  air-to-air  engagement  logic,  to  isolate  the  sources  of  the 
discrepancies.  Also  observed  in  the  comparison  was  that  many  of  the 
differences  between  the  models  were  masked  when  running  the  complete 
scenario.  It  falsely  appeared  that  the  two  models  were  producing  similar 
results  in  many  areas  where  problems  existed.  This  emphasizes  the  need  for 
testing  weapon  systems  individually  in  the  model. 

b.  The  test  scenario  input  files  for  both  the  CIAD  and  CISCIAD  Models 
as  well  as  the  CAA  version  of  the  CIAD  Model  weapon  decks  have  been  provided 
on  magnetic  tape  to  TRAC-WSMR  to  assist  in  their  debugging  effort. 
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CHAPTER  3 
FINDINGS 


3-1.  INTRODUCTION 

a.  The  study  comparison  between  the  CIAD  Model  and  CISCIAD  Model  produced 
several  findings  which  are  presented  below. 

b.  The  test  scenario  input  files  for  both  the  CIAD  and  CISCIAD  Models  as 
well  as  the  CAA  version  of  the  CIAD  Model  weapon  decks  have  been  provided  to 
TRAC-WSMR  to  assist  in  their  debugging  effort 

3-2.  FINDINGS 

a.  The  CISCIAD  Model  was  successfully  installed  on  CAA's  VAX  8600 
computer;  however,  the  study  only  progressed  to  the  first  staqe  of  performing 
the  comparison  tests  using  one  weapon  system  at  a  time.  The  initial  release 
(October  1987)  contained  errors  in  the  contractor-added  software.  The 
contractor  and  TRAC-WSMR  continued  to  fix  these  problems  as  well  as  make 
other  improvements  to  the  basic  model  after  having  released  it  to  CAA.  Since 
the  model  was  in  such  a  turbulent  state,  the  CISE  Study  was  put  on  hold  in 
April  1988  until  TRAC-WSMR  could  release  a  final  version.  All  of  the  CAA 
corrections  made  to  the  CISCIAD  Model  between  January  1988  and  April  1988 
were  sent  to  TRAC-WSMR  at  that  time.  TRAC-WSMR  released  a  final  version  of 
the  model  to  CAA  in  July  1988. 

b.  Comparisons  of  test  results  between  the  CISCIAD  and  CIAD  Models  showed 
similarity  in  the  air-to-surface  and  surface-to-air  logic  (without  utilizing 
the  new  CISCIAD  Model  features);  however,  numerous  discrepancies  were 
revealed,  mainly  in  the  air-to-air  portion  of  the  models.  This  appears  to  be 
the  major  area  of  modification  to  the  CIAD  Model  by  AFOTEC  after  the 
contractor  began  work  on  the  CISCIAD  Model  in  February  1986.  These  AFOTEC 
modifications  to  the  CIAO  Model  were  not  incorporatec  by  the  contractor  or 
TRAC-WSMR  in  the  CISCIAD  Model.  The  fact  that  the  CISCIAD  Model  was 
developed  from  an  earlier  version  of  the  CIAD  Model  than  the  one  in  use  at 
CAA  is  the  cause  of  most  of  the  differences  discovered. 

c.  Differences  still  exist  between  the  two  models,  and  at  the  time  of 
this  report,  the  decision  was  made  to  defer  further  consideration  of  the 
CISCIAD  Model  at  CAA  until  a  later  date  when  the  model  has  reached  a  better 
level  of  maturity. 
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3-3.  SUMMARY 

a.  The  comparison  revealed  that  the  basic  surface-to-air  and  air-to- 
surface  modules  (without  utilizing  the  new  CISCIAD  Model  features)  produce 
fairly  similar  results  with  both  models.  The  study  also  highlighted  areas 
where  further  testing  is  required.  Problems  in  the  air-to-air  engagement 
logic  are  significant  and  need  to  be  isolated  and  corrected  before  the  model 
should  be  considered  for  use  in  analysis  involving  air-to-air  combat. 

b.  The  development  of  CISCIAD  was  a  highly  ambitious  effort  which  added  a 
large  number  of  complex  features  to  an  already  complex  model.  Common  to 
software  development  efforts  of  this  magnitude  is  the  need  for  an  extended 
test  and  debug  period.  The  proponent  is  continuing  efforts  to  refine 
CISCIAD,  and  the  model  should,  at  some  time  in  the  future,  prove  to  be  a 
powerful  tool  for  supporting  air  defense  analyses. 
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APPENDIX  B 
STUDY  DIRECTIVE 


DEPARTMENT  OF  THE  ARMY 

US  ARMY  CONCEPTS  ANALYSIS  AGENCY 
81 20  WOODMONT  AVENUE 
8ETHESOA,  MARYLAND  20814-2797 


CSCA-FSC  0  9  PEC  1987 

MEMORANDUM  FOR  ASSISTANT  DIRECTOR,  FORCE  SYSTEMS  DIRECTORATE 

SUBJECT:  Combat  Identification  Systems  COMO  IAD  Model  Evaluation  (CISE) 

Study 

1.  PURPOSE  OF  DIRECTIVE.  This  directive  establishes  objectives  and 
provides  guidance  for  the  conduct  of  the  Combat  Identification  Systems  COMO 
IAO  Model  Evaluation  (CISE)  Study. 

2.  BACKGROUND 

a.  This  effort  began  as  part  of  the  CAA  Air  Defense  Models  Modification 
(ADM2)  Study  (completed  in  September  1986).  ADM2  involved  assisting  the  US 
Army  TRADOC  Analysis  Command  (TRAC)  In  developing  a  statement  of  work  and 
monitoring  a  contract  to  modify  the  COMO  Integrated  Air  Defense  (CIAD) 

Model  (currently  In  use  at  CAA).  The  modifications  were  to  include 
comnand,  control  and  communications  (C3),  airspace  management  and 
Identification  friend  or  foe  (IFF).  The  contract  commenced  in  February 
1986  by  Veda  Incorporated,  and  was  subcontracted  to  SRS  Technologies.  TRAC 
accepted  delivery  of  the  model  In  June  1987. 

b.  One  of  the  objectives  of  the  ADM2  Study  was  to  provide  CAA  with  an  air 
defense  model  that  could  simulate  C3,  airspace  management  and  IFF  and  to 
Install  the  model  at  CAA  when  the  modification  contract  was  completed. 

3.  STUDY  SPONSOR.  Director,  US  Army  Concepts  Analysis  Agency  (CAA). 

4.  STUDY  AGENCY.  Force  Systems  Directorate,  US  Army  Concepts  Analysis 
Agency . 

5.  TERMS  OF  REFERENCE 

a*  Purpose.  Install,  test  and  make  operational  on  the  VAX  8600  at  CAA 
the  TRAC  Combat  Identification  Systems  COMO  Integrated  Air  Defense 
(CISCIAO)  Model. 

b.  Scope.  The  TRAC  CISCIAO  Model  will  be  installed,  modified  and 
operated  on  the  VAX  8600  computer  at  CAA. 

c.  Objectives 

(1)  Install  the  TRAC  CISCIAO  Model  on  CAA's  VAX  8600  computer. 

(2)  Implement  the  modifications  made  to  the  CIAD  Model  by  CAA  in  the 
CISCIAO  Model. 
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(3)  Determine  whether  the  output  results  of  the  CISCIAD  and  CIAD 
Models  are  similar  given  the  same  scenario  and  conditions. 

(4)  Test  the  new  command,  control  and  communications,  airspace 
management  and  IFF  features  of  the  CISCIAD  Model  for  software  bugs  and 
evaluate  the  results  for  reasonableness. 

d.  Assumption.  Since  the  CISCIAD  Model  has  been  accepted  by  TRAC, 
the  technical  functioning  of  the  modifications  made  by  the  contractor 
have  been  verified  and  approved. 

e.  Essential  Elements  of  Analysis  (EEA) 

(1)  Can  the  CISCIAD  Model  be  installed  and  operated  on  the  CAA  VAX 
8600  computer  and  updated  with  CAA  CIAD  enhancements? 

(2)  How  do  the  results  of  the  CIAD  and  CISCIAD  Models  compare  using 
the  same  scenario? 

(3)  What  are  the  capabilities  of  the  CISCIAD  Model  to  simulate  C3, 
airspace  management  and  IFF?  What  are  the  limitations? 

f.  Responsibilities.  FS  will  provide  the  study  team,  conduct  the 
study  and  perform  the  model  installation  and  operation. 

6.  LITERATURE  SEARCH 

a.  A  Defense  Technical  Information  Center  (DTIC)  search  has  been 
conducted. 

b.  Related  Studies 

(1)  Air  Defense  Models  Modification  (ADM2)  Study,  CAA,  September 
1986. 

(2)  COMO  Integrated  Air  Defense  ( IAD)  Model  Evaluation  (CME)  Study, 
December  1986. 

7.  ADMINISTRATION 

a.  Support.  Funds  for  travel  and  per  diem  will  be  provided  by  CAA. 
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b.  Milestone  Schedule 

31  December  1987 
29  February  1988 
15  April  1988 

c.  Coordination.  FSC  is  authorized  direct  coordination  with  TRAC  in 
the  installation  and  testing  of  the  CISC  I AD  Model. 


CiSCIAD  Model  installation  completed 
Comparison  runs  and  analysis  of  results 
between  CIAD  and  CISCIAD  Models  completed 
Evaluation  of  CISCIAD  Model  results 
completed 

Final  report  published  31  May  1988 


rT  *'■'3  . 

E.B.  VANDIVER  III 
Director 
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APPENDIX  D 

COHO  MODELING  SYSTEM 

D-l.  INTRODUCTION.  This  appendix  briefly  describes  the  COMO  Modeling  system 
and  provides  a  background  and  description  of  the  CIAD  Model. 

D-2.  COMO  STRUCTURE 

a.  COMO  is  a  stochastic,  critical-event-stepped,  Monte  Carlo  combat 
simulation  model  developed  by  SHAPE  Technical  Centre  (STC)  in  the  1960s.  It 
was  designed  as  a  readily  adaptable  model  to  study  tactical  weapon  systems. 
Figure  D-l  illustrates  the  major  components  of  the  COMO  structure. 


Figure  D-I.  COMO  Structure 
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b.  The  COMO  Frame  is  a  collection  of  subroutines  which  reads  and  edits 
the  input  data,  performs  bookkeeping  functions,  and  controls  the  execution  of 
the  simulation.  The  weapon  decks  are  sets  of  subroutines  and  control 
statements  describing  the  critical  events  which  characterize  the  activity  of 
weapon  systems.  Detecting  an  aircraft,  launching  a  missile,  and  refueling 
are  examples  of  these  events.  Since  the  weapon  decks  are  a  separate  element 
of  the  COMO  structure,  different  weapon  decks  can  be  integrated  into  the 
model.  The  user  includes  only  those  decks  for  the  weapon  systems  that  will 
participate  in  a  particular  scenario.  Supporting  software,  required  to  pre¬ 
pare  the  weapon  decks  for  merger  with  the  COMO  Frame,  is  called  the  COMO 
Assembly  Program.  The  scenario  is  described  using  the  COMO  Input  Language 
(COMIL)  by  specifying  the  numbers,  locations  and  performance  characteristics 
of  the  weapon  systems.  Examples  of  performance  characteristics  are  aircraft 
speed,  fuel  consumption  rate,  missile  launch  delay  time  and  probability  of 
kill. 

D-3.  COMO  INTEGRATED  AIR  DEFENSE  (CIAD)  MODEL 

a.  In  1981,  STC  developed  the  "COMO  III  Integrated  Air  Defense  Model  with 
Command  and  Control"  (CIAD)  through  a  contract  with  General  Research 
Corporation  (GRC).  The  US  Air  Force  Operational  Test  and  Evaluation  Center 
(AFOTEC)  acquired  the  CIAD  Model  from  STC  in  1983.  Under  a  contract 
sponsored  jointly  by  AFOTEC  and  Sand i a  National  Laboratories,  GRC  converted 
the  COMO  Frame  and  COMO  Assembly  Program  to  the  ANSI  FORTRAN  77  standard, 
creating  a  machine-portable  version  of  COMO.  The  model  had  previously  been 
programed  using  FORTRAN  IV  and  assembly  language.  During  1983-1985,  AFOTEC 
programers  modified  and  improved  the  CIAD  weapon  decks  to  be  compatible  with 
the  new  machine-portable  COMO  Frame.  CAA  obtained  the  CIAD  Model  from  AFOTEC 
in  October  1985. 

b.  The  CIAD  Model  contains  a  complete  set  of  weapon  decks  to  simulate  a 
theater-level  ground-to-air,  air-to-air,  air-to-ground,  and  surface-to- 
surface  missile  battle.  Table  D-l  lists  the  types  of  weapon  systems 
available  in  the  CIAD  Model. 
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Table  0-1.  CIA0  Model  Weapon  Systems 

Defensive  forces: 

High-to-medium-altitude  Air  Defense  (HIMAD):  autonomous  or 
coordinated  surface-to-air  missile  fire  unit 

Interceptor  (INCEPTB):  air-to-air  combat 

Command  and  Control  Center  (COMCTR):  coordination  of  HIMADs  and 
interceptors 

Short-range  Air  Defense  System  (SHORAD):  attrition  zone 
Early  Warning  and  Tracking  Radar  (SENSOR):  ground  or  airborne  type 
AIRBASE:  interceptor  base  for  strip  alert,  rearming,  and  refueling 
Offensive  forces: 

Penetrator  (BOGEY):  air  defense  suppression,  escort,  and  bombing 
missions  with  or  without  self-screening  ECM 

JAMMER:  escort  and  standoff  ECM 

Surface-to-surface  missile 


c.  A  representative  scenario  employing  all  of  the  CIAD  Model  weapon  sys¬ 
tems  is  illustrated  in  Figure  D-2.  81 ue  air  assets  consist  of  interceptors 

on  combat  air  patrol  (CAP)  and  in  various  readiness  states  at  airbases. 
Command  and  control  centers  receive  target  information  from  remote  or 
collocated  sensors,  orbiting  Airborne  Warning  and  Control  System  (AWACS)-type 
aircraft,  and  HIMADs.  The  command  and  control  centers  assign  and  guide 
interceptors  toward  target  aircraft.  HIMADs  fire  at  targets  they  are 
tracking  but  are  restricted  by  the  command  and  control  center  from  engaging 
those  targets  which  are  fully  allocated  to  other  HIMADs  and  interceptors.  A 
region  can  be  defined  as  a  SHORAD  attrition  zone.  All  Red  aircraft  flying 
through  this  zone  are  subject  to  attrition  depending  on  the  density  of  sites, 
rate  of  fire,  and  kill  probability.  An  interceptor  defense  line  limits  the 
flight  of  interceptors  to  protect  against  fratricide.  Red  attacking  assets 
consist  of  orbiting  standoff  jammers  (SOJ),  escort  jammers  (ESJ),  escort 
fighters,  and  bombers  and  air  defense  suppression  aircraft  with  self¬ 
screening  jam  (SSJ)  capability. 
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Figure  D-2.  CIAD  Model  Typical  Scenario 
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APPENDIX  E 

CISCIAO  MODEL  CORRECTIONS  AND  UPDATES 


The  following  list  encompasses  all  changes  made  to  the  CISCIAD  Model  by  CAA 
throughout  the  period  from  January  1988  to  November  1988.  The  double  dashed 
lines  are  used  to  separate  each  change  {or  related  changes).  The  date  of  the 
change  is  indicated  at  the  top  right-hand  corner  of  the  section  with  an 
explanation  for  the  correction  at  the  bottom. 
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Subroutine  BM2  1/12/88 

Otcliti': 

LOCI  CAL  LONG , SDT 
INTEGER  TRINC 

Mow#  : 

CALL  TRBIT(NP , ITR, JBIT) 

To:  the  lino  below  the  comment 
C  «*«  MISSILE  IS  A  SAM 

Below  NTFaNBMTF < BM> 

Insert : 

SDT  a  .FALSE. 

Below  label  4S 

Insert : 

IF  <  P . EQ . SDTGT  <  NP ) >  SDT  ■  .TRUE. 

Change : 

3  KMaMODEK(MT) 

To  : 

41  KM-MODEXCMT) 

Before  label  41 

Inser  t : 

3  IF  (NTF.EQ.O  OR.  FNDF )  GO  TO  41 
IF  <  SDT)  CO  TO  41 
KOUT  «  TRINC1P, JBIT) 

KOUT  >  KOUT/ ITR-2* (KOUT/ <2» ITR) > 

IF  <  KOUT . NE . 0 )  GO  TO  41 
RESIND(l)  a  41 
GO  TO  28 

The  above  changes  create  and  set  RESIND  41  which  means  that  the 
HIMAD  lost  track  on  the  target  before  the  missile  burst.  D.  Michael 
had  made  this  change  to  the  CIAD  version  of  the  model  CAA  is  currently 
using. 


Subroutine  BM2  1/12/88 

Before  label  88 

Change : 

IF  (  . NOT . E  5  C  (  P  )  AND.  NOT. FNDF)  RESIND<2)»1? 

To  : 

IF  (.NOT. ESC <P)  AND.  LONG ( MT  > )  RESIND(2)-1? 
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Subroutine  314 


1/ 12/88 


Attar  label  10 

Inser  t : 

CALL  ZLONG(ML, .TRUE. > 

After  label  4 

Inser  t : 

CALL  ZLONG(MS, . FALSE . > 

Between  labels  4  and  7 

Change : 

DTS  *  DTS A (ML) 

To  : 

DTS  -  DTS A (MS) 

On  the  neat  li ne 

Change : 

IF  (NSLVO(ML)  . GT.l)  DTS-DTS/NFR 

To  : 

IF  (NSLVO(MS)  .CT.l)  DTS-DTS/NFR 

The  changes  between  labels  4  and  7  were  due  to  a  mistake  in  the 
code.  ML  is  the  medium  range  missile  and  MS  is  the  short  range  missile 
and  this  particular  section  of  code  is  dealing  only  with  short  range 

missiles. 


CISCIAD.ORG  file 


1/12/88 


Add  . 


In  the  GENMIS  weapon  deck 
$  4  LONG  2  0  1  0 


1 


These  changes  were  made  by  CAA  because  it  ssumed  in  the  model 

that  short  range  air-to-air  missiles  are  fire  a:'  get  and  that 

medium  range  air-to-air  missiles  are  not  fire  a>.'  <tet.  That  is  no 

longer  the  case,  so  to  get  the  RESINDs  posted  cot  a  (lag  had  to 

be  created  in  the  GENMIS  weapon  deck  to  indicate  ..  ther  the  missile 
is  short  or  medium  range. 
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Subroutine  SYSBO  1/12/88 

Dec  ltrt: 

INTEGER  SA , SP 
REAL  RCHK 
LOCI  CAL  COMP AT 
EXTERNAL  RVIS 

Before  label  20 

Insert : 

SA  ■  ACTCU(l) 

SP  a  PASCU(l) 

ACTCU ( 1 )  -  P 
PASCU(l)  >  PARI 
RCHK  a  R( P, PARI ) 

IF  COMPATf RCHK, RVIS) >  GO  TO  19 
ACTCU ( 1 )  a  SA 
PASCU ( 1 >  a  SP 
RETURN 

19  ACTCU  Cl)  -  SA 
PASCU ( 1 )  a  SP 

This  change  was  make  by  CAA  so  that  ARM  launching  BOGEYs  would 
only  be  able  to  detect  HIMAOs  that  could  detect  them  based  on  the 
terrain  (RVIS)  of  the  HIMAO.  The  ARM  launchers  were  not  lubjected  to 
terrain  the  way  the  HIMADs  were,  therefore,  the  BOGEY  was  sat  to  the 
PASCU  array  and  the  HIMAO  put  into  the  ACTCU  array.  Than  all  that  was 
needed  was  to  compare  the  range  to  RVIS. 


Subroutine  RSI  1/12/88 

Dec  1  are: 

REAL  N1MIS 


Subroutine  GUI  1/12/88 

Dec  1  are: 

REAL  N1MIS 


CAA  had  made  this  change  is  RSI  for  the  CIAD  model  earlier,  but 
lust  recieved  change  for  CISICAD  model  from  F.  Burns,  SRS . 


CAA-SR-89-3 


Subroutine  USRCOM  1/20/88 

Add: 

COMMON  /BOG /  NBOG1 

Insert : 

C  -  BOl 

NBOC1  »  0 

Subroutine  BOt  looks  tor  a  previous  vilue  in  common  variable  NBOG1 . 
When  running  more  than  one  replication,  an  old  combat  unit  number  is 
left  in  NBOG1,  which  causes  the  model  to  crash  when  this  number  happens 
to  be  larger  than  LCU.  The  solution  is  to  reset  NBOG1  between 
repl icat ions . 


Subroutine  RSI  1/21/88 


At  the  begi nni ng , 

Insert  : 

DO  222  L  s  1,10 
222  NP ASCU  (  L  >  -  0 


after  N» 1 


Subroutine  RS2  1/21/88 

Delete : 

DIMENSION  NP ASCU <  1 0 ) 

At  the  beginning,  after  RSaACTCU(l) 

Inser t : 

DO  222  L  »  1,10 
222  NP ASCU <  L )  .  0 


Subroutines  /  Functions  RS2, IDEXEC.PDECLR, I DXCMD , QUERY , X PONDS  1/21/88 

Add  : 

COMMON  /NPASC /  NPASCU(IO) 

After  each  occurence  of  setting  the  RESIND  array 

Inser  t : 

IF  (K.LE.10)  NPASCU(K)  •  P 
o  r 

IF  (IR.LE .10)  NP ASCU ( I R  >  a  P 

(use  K  or  IR,  whichever  one  applies) 
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Subroutine  PDECLR  1/21/88 

Before  label  1000 

Ineer  t : 

IF  (IR.GT.10)  1R  ■  10 


These  changes  were  made  because  the  PASCU  array  was  not  getting 
set  properly  to  post  RESINDs  to  the  summary  file  through  SPEC1 . 


Subroutine  RS2  1/21/88 

Where  RESIND  30  is  posted,  we  deleted  the  K»K+1  statement  and  the 
posting  of  the  RESZND  array.  We  left  the  call  to  EVNOUT.  RESIND  30 
corresponds  to  link  failures.  These  were  happening  so  frequently  when 
COMIL  variable  PXMIT-80  was  used,  that  the  10  positions  in  the  RESIND 
array  were  getting  filled  and  we  were  never  able  to  see  what  other 
RESINDS  were  set.  RESIND  30  still  gets  posted  to  the  TAPE1S  file  to 
monitor  the  number  of  link  failures,  but  it  will  not  get  counted  in 
the  summary  statistics. 


Subroutine  USRCOM  2/8/88 

Move  : 

C  *  « *  DTO  *  *  * 

KOUNT-O 

CTR-Q 

KmO 

I SWW.O 

NFLG-1 

LDR-0 

WR I TE (8,200)  NREPS 
WRITE (18,200)  NREPS 

To:  the  bottom  of  the  routine,  before  the  200  FORMAT  statement 

The  variable  K  is  in  a  common  block  and  gets  used  as  the  number 
of  SHORAD  units  in  the  game.  In  USRCOM,  K  was  initialized  to  0,  but 
then  reused  as  a  DO  LOOP  controlling  variable  and  a  value  of  K>7  was 
left. 
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Subrout  ini  BMZ 


Just  above  label  2500 ,  before 

Inur  t  : 

IF  (ITG.NE.1  BOGEY1)  GO  TO  301 
2  1 i nee  be  1 ow 

Change : 

XPO-XP* . 001 

To: 

301  XPO*XP«.001 


2 / ? / 88 

IF  (CRMSL(NP) . OR.TYPSS(NP) )  etc. 


Several  lines  below 

Delete: 

IF  (CRMSL(NP) .OR.TYPSS(NP) )  CALL  REMVCUCNP) 

This  was  necessary  because  CRMSL  and  TYPSS  should  not  be  accessed 
by  anything  other  than  a  BOGEY  unit.  The  deletion  is  because  the 
statement  is  a  repeat  of  the  one  above  label  2500. 


Subroutine  LAUNCH  2/11/88 

Declare : 

CHARACTER* 8  TGNAME ,  ITG 

Before  the  statement,  IF  (TYPSS ( AC >. OR . CRMSL ( AC > )  GO  TO  5 

Inser  t : 

ITG  a  TGNAME ( CLASS ( AC  > ) 

On  the  nest  line 

Change : 

IF  (TYPSS (AC)  OR. CRMSL (AC) )  GO  TO  5 

IF  (ITG.EQ.1  BOGEY1  AND.  ( TYPSS ( AC ). OR . CRMSL ( AC )) )  GO  TO  5 

TYPSS  and  CRMSL  variables  should  not  be  accessed  if  AC  is  not  a 
BOGEY  unit. 


Cl  SCI  AD  ORG  file 


2  /  1  2  /  88 


Add  : 


In  the  FIBOMBH  weapon  deck 
»3  SCRUS 


The  BIS  event  is  esecuted  for  escorts  when  in  pursuit  of  a  target. 
It  accesses  the  SCRUS(FI)  in  several  places.  After  talking  to  Fennell 
Burns,  he  said  the  change  should  be  made  to  BI3  to  access  the  FLTSPD 
of  the  BOCEY  rather  than  SCRUS  if  the  unit  is  an  escort.  He  said  that 
SCRUS  should  not  really  be  added  to  the  F I BOMBR  weapon  deck. 
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Subtout  ini  RSI 


2 / 1 4 / 88 


Mo  v*  : 


To  : 


Bo  1 ow  I ibi 1  2  2 
TR  -  TREDY(RS) 

directly  below  the  statement  TSAVE 


Change  from  TRAC-VSMR. 


Subroutine  LAUNCH  2/18/88 

About  17  lines  below  label  2, 

following  the  statement,  IF  ( ITG . EQ .  ‘  BOGEY  . AND .  ( TY  FSS  etc. 

Insert : 

IF  (FI. EQ . - 1  OR.  FI.EQ.O)  GO  TO  4 

This  is  a  very  important  change.  HIMAD  launches  were  getting 
scheduled  for  the  intercept  time  rather  than  the  launch  time. 

aBBBBaaaaaaBaBBaaaaBaaaBaaBaaaaaaaBBaBaBBBBaaBBBBBBaBBBBaaBaaBaaaBBBBBaBBaBSBaaa 


Subroutine  RS2 

A  few  lines  below  label  87 

Change : 

IF  (TR. GT.TR+0T2)  GO  TO  100 

To  : 

IF  (TR. GT.TR+DT3R)  GO  TO  100 


2/22/88 


This  change  was  made  in  the  CAA  CIAD  model.  DT3R  is  the  time 
between  decision  to  launch  and  actual  missile  away,  therefore,  the 
check  should  be  made  to  see  if  the  launcher  will  be  ready  by  that 
time  rather  than  the  RS2  cycle  time. 

Change : 

921  TR  a  TR  +  DT4R 

To  : 

92  1  TR  a  TR  ♦  DT  4  R  *  NS  S 


NSS  is  the  number  of  missiles  salvoed  and  DT4R  is  the  time 
between  missile  launches.  DT4R  should  be  multiplied  by  the  SALVO 
to  calculate  the  nest  launcher  ready  time.  This  change  was  made  to 
CIAD  by  D.  Michael,  AFOTEC . 


Subroutine  RS2  2/22/88 

Above  label  930,  before  CALL  SILENC(RS,T> 

Insert : 

IF  (MSMISR.NE . 0)  THEN 

CALL  ZOUTAC(RS, .TRUE . > 

GO  TO  930 
END  IF 
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Subrout i na  BM2  2/22/88 

□icliri : 

LOGICAL  OUTAC 

Attar  1  aba  1  28 

Iniar t :  ' 

IF  ( ITG . EQ . ■  HIMAD *  AND.  MSM I S C NP > . EQ . 0  AND.  OUTAC(NP))  THEN 
CALL  3  I LENC  <  NP , T) 

IF  (MSHTCNP) . GT. 0 >  CALL  20UTAC ( NP ,. FALSE .  ) 

END  IF 


HIMAD  radars  wara  batng  turnad  off  (whan  out  of  missilas  and  tha 
raload  t ima  raquirad  tha  radar  to  ba  turnad  off)  in  tha  sama  RS2  event 
as  tha  last  missila  was  schadulad  to  ba  launchad.  Subroutina  SILENC 
drops  track  on  all  targats  for  that  HIMAD.  tharafora,  tha  radar  was  not 
staying  up  long  anough  to  lat  tha  missilas  raach  tha  intarcapt  point. 
This  changa  was  mada  to  CIAD  by  0.  Michaal,  AFOTEC .  This  puts  tha 
HIMAO  out  of  action  without  dropping  track  on  targats  until  tha  last 
missila  has  arplodad  (MSMIS-O)  and  than  calls  SILENC. 
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Subroutine  BI3  3/22/S8 

A  few  line*  after  line  1517,  after  ND»NFR-NFRN 

Inter t : 

C  *«  IF  THE  INTERCEPTOR  FORMATION  DOES  NOT  SPLIT,  RESET  ND  TO  NFR 
IF  <NFR . EQ . NFRN)  ND-NFR 

When  an  interceptor  formation  switched  to  a  new  target,  and  the 
formation  did  not  split,  ALOCC  was  not  getting  deducted  by  the  number 
in  the  formation  (NFR-NFRN)oO  therefore,  xero  was  getting  deducted 


Subroutine  C03  3/23/88 

At  label  12,  change  and  insert  the  following 

Change : 

12  IF  < OEADfNF  > )  SO  TO  30 
IF  <  DEAD ( P ) )  GO  TO  30 

To  : 

12  PASCU(l)  a  TGT(NF) 

P  a  PASCU(l) 

IF  ( DEAD ( NF >  >  CO  TO  30 
IF  ( DEAD ( P ) )  GO  TO  30 

A  few  1 ines  below 

Delete: 

P ASCU ( 1 )  a  TGT(NF) 

P  a  PASCU(l) 

The  COMCTR  was  continuing  to  dispatch  aircraft  against  a  dead 
formation  of  BOGEYs  because  it  was  only  looking  at  the  DEAD  flag  of 
the  trackfile  rather  than  the  flag  of  the  PASCU . 


Subroutine  AB1  3/24/88 

After  label  14,  just  before  CALL  CIRCLE 

Insert : 

CALL  ZTLTGS <  LDR , T) 

When  a  trackfile  is  dead,  after  interceptors  are  committed,  but 
before  they  have  left  the  AIRBASE,  BIS  deducts  too  much  fuel  because 
TLTGS  (time  last  fuel  decrement)  was  never  set  to  anything  but  zero. 
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Subroutine  AB2  3/24/88 

After  label  10  CONTINUE,  the  code  should  read  as: 

DM  =  DGVAL(AB) 

IF  <  DM . GT . CRDMG ( AB  >  >  THEN 
DT  -  DT/DM 

IF  < EVTINDC FI ,NAB3 )  .NE . 0 >  THEN 
CALL  RE PL AC  <  F I  , NAB 3 , T  + DT  > 

ELSE 

CALL  SCHEDL ( FI , NABS , T+DT ) 

END  IF 

CALL  ZEVINDf  F I , 1 , 1 ) 

CALL  BSORT(FI) 

ELSE 

IF  <EVTIND< FI .NAB3 > .NE . 0 >  GO  TO  5 
CALL  SCHEDL (FI, NAB 3 , T+DT ) 

CALL  ZEVIND<  FI  ,1,1) 

CALL  BSORT(FI) 

END  IF 
5  RETURN 

This  change  was  made  because  FIGHTERs  were  not  getting  rearmed 
and  refueled  at  the  required  time  intervals  (TG02).  Subroutine  AB2 
was  rescheduling  the  AB3  event  ( REARM/ REFUEL >  at  DT  seconds  after 
each  FIGHTER  landed,  therefore  pushing  back  the  event  each  time. 

The  AB3  event  is  executed  for  the  FIGHTER  weapon  as  a  whole  and  not 
for  each  aircraft  that  lands. 


Subroutine  TRCKVT 


3/28/88 


Be  1 ow  label  8 

Delete: 

IF  (SLP.NE.SA)  GO  TO  81 
IF  (SA.EQ.O)  DELY  »  CA  -  YP 
GO  TO  83 

At  label  83 

Delete: 

83  IF  <SA . NE . 0 )  GO  TO  ? 

01  ST  a  -DELY  *  .00  1 

GO  TO  11 
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Subrout  ini  TRCKWT  Continued  3/28/88 

Just  above  label  11 

Change : 

DIST  «  TESTP  *  DIV  *  .001 

To  : 

DIST  -  .5  *  DELT 

Replace:  Ubal  11  with 
IWT  >  700  -  DIST 
Dalata: 

81  IF  (DELT.CT.O)  GO  TO  20 
2  Linos  down 

Da  la  ta : 

9  DIV  -  1 . /SA 

IF  (CA.NE.O)  DIV  -  DIV  *  SXGN(1.,CA> 

Targets  outsida  of  tha  dafansa  1 i na  and  incoming  wara  getting  a 
higher  priority  than  targets  inside  tha  dafansa  line  and  incoming. 


Subroutine  802  3/28/88 

Near  beginning 

Change: 

XT  «  T/DTR 

To  : 

XT  ■  T  -  INT<T/DTR)  *  DTR 

Dalata: 

MT  -  XT 

Change : 

IF  < ( XT-MT) . LT. DTB)  PAR2  -  1 

To  : 

IF  (XT.LT.DTB)  PAR2  *  l 

Escorts  were  not  making  visual  saarchas  because  the  calculation 
wa  s  incorrect. 
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Subroutini  RSI 

Bitow  the  statement  26  T  <  TSAVE 

Initr t : 

TR  -  T  +  DT3 <  RS ) 

A  f aw  lines  balow 

Delate. 

IF  (TI.IT.T)  TI  ■  T  +  DT3 <  RS i 
Balow  1  aba  1  270 

Change : 

TSHOOT  ■  T  ♦  DT4  <  RS )  «  NF 

To  : 

TSHOOT  ■  TR  ♦  DT4  <  RS )  *  NF 

TREDY  tlm  should  ba.T  a  DT4(RS>. 


3/28/88 


Subroutina  BOO  3/28/88 

Changa  : 

CALL  SCHEDLCA, BO  1  , T+ .001) 

To: 

CALL  SCHEDL ( A , BOl , T+. 00 0 1  ) 

BOCEYa  wars  antaring  tha  gaaa  and  than  gatting  da  t  ac  t  ad  bafora 
a  BOl  avant  got  schadulad  to  "kill  off  mambars  of  tha  formation  so 
only  tha  laadar  raaalns. 


Subroutina  RSI 


3/27/88 


Batwaan  labals  24  and  24,  after  IF  ( RLTR )  T»T1 

r nsa r  t  : 

IF  <H<  P)  . LT. 0)  GO  TO  2  8 


Subroutina  RS2 


3/27/88 


After  label  724  T  »  TI 

Inser  t  : 

IF  <H( P) . LT. 0 )  GO  TO  100 


These  checks  for  tha  height  of  the  passive  unit  are  for  TBM's  to 
insure  that  tha  TBM's  are  not  launched  against  if  they  ara  underground 
at  intarcapt  ti me . 
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CISCIAD.ORG  £ i 1 •  3/29/88 

All  places  whin  DSTAT  is  icemtd,  the  ACTCU(l)  position  must  bo 
tho  unit  which  appears  in  tho  DSTATO  statement.  For  mapli  DSTAT(CO) 
doti  not  chock  DSTAT  for  tho  CO  unit  but  rather  for  tho  unit  that  is  in 
ACTCU(l)  at  tho  time  of  tho  call.  In  all  casos  whoro  tho  unit  being 
tested  is  not  in  ACTCU(l),  save  the  ACTCIK1),  place  the  correct  unit 
into  ACTCU(l),  and  then  reset  the  ACTCU(l)  back  to  the  saved  value 
after  the  call  to  DSTAT. 


C0M04.DKS  file  4/4/88 

In  *DECK  COMOZ ,  increase  NEGNAG  data  initialisation  from  10  to  40. 

This  is  a  count  limit  for  NEGNAC  for  all  replications.  10  is 
too  restrictive  for  sis  replications. 


Subroutine  C0RDN8  4/18/88 

Below  label  20 

Change: 

FCRT  «  CASSOfFI )  «  .  6 

To  : 

FCRT  -  GASSO  <  F I  )  *  .  2 

Changed  by  D.  Michael.  AFOTEC,  in  the  CIAD  model.  This  sends 
interceptors  back  to  CAP  .if  they  have  more  than  20%  of  their  fuel, 
rather  than  circle  in  place. 


Subroutine  RS2 


4/18/88 


A  few  lines  above  label  95 

Change : 

CALL  S I LENC  <  RS , T) 

To  : 

IF  (MSMISR . EQ . 0>  CALL  SILENC<RS,T> 

When  there  are  no  reloads  available  and  HIMAD  has  missiles  in 
flight,  SILENC  should  not  be  called  until  last  BM2  event. 

Below  label  93  NRLD  -  NRELD(RS) 

Insert : 

CALL  ZMSMISfRS, MSMISR) 

When  out  of  missiles  and  reloading,  MSMIS  never  gets  set  for 
missiles  launched  before  running  out. 
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Subroutine  SPEC1  4/18/ 

The  RESIND*  war*  updated.  There  were  20  new  ones  added  and  1 
deleted  for  a  total  of  139  RESINDS. 

Change : 

TMPLOC ( 110) , TMP 1 (110) ,TMP2 (110) 

To  : 

TMPLOC < 139 ) , TMP1 ( 139 ) ,TMP2 (139) 


Change : 

DO  100  JJ  «  1,110 

To  : 

DO  100  JJ  m  1,139 

Change  current  TMPLOC,  TMP1 ,  and  TMP2  to  the  following: 


DATA  TMPLOC  / 


♦ 

■  ABl  ' 

,  '  ABl  ' 

,  '  ABl 

,  '  AB2 

, ' AB2 1 , 

'  AB2  ' 

•  AB3  • 

,  ‘ AB3  ' 

,  ' AB3  •  , 

'  AB3  ' 

♦ 

'  AB3  • 

,  ‘  BI2  • 

, ' BI3 ‘ 

,  '  BI3 

,  ' BI  3  '  , 

'  B  I  3  ' 

'  BI3  ' 

,  ' BI3  1 

,  ' BI3  *  , 

'  BI3  ' 

♦ 

'  BI3  ' 

,  'BI3  ‘ 

, ' BI 3 ‘ 

,  ‘BI3 

,  ' BIS’  , 

'814' 

*  B I  4  1 

, 'BI4* 

,  'BI41  , 

'BIS' 

♦ 

■BIS' 

,  '  BIS  ' 

.  ' BIS  ' 

,  1  BIS 

.'BIS', 

'815  ' 

*  BM2  ■ 

, ' BM2 * 

,  ' BM2  1  , 

'  BM2  ' 

♦ 

'  BM2  * 

,  '  BM2  • 

,  '  BM2 

,  '  BM2 

. ' BM2 ■ , 

‘  8M2  ‘ 

•  BM2  ' 

, ' BM2 * 

.  ' BM2  *  , 

*  BM2  * 

♦ 

'  BM2  • 

,  1 BM2  • 

,  '  BM2 

,  '  BM2 

, ' BM2 • , 

1  8M2  ’ 

•  BM2  ’ 

, ' BM2 ' 

,  '  BM2  '  , 

'  BM2  * 

♦ 

'  BM2  ' 

,  1  HM2  • 

,  '  HM2 

,  '  BM2 

,  '  BM2  '  , 

'  BM2  1 

•BM  2  1 

, ' BM2 ' 

,  ' BM2 '  , 

'  BM2  ' 

♦ 

•  BM2  • 

,  '  BM2  * 

, ' BM2 ' 

,  '  BM2 

. ' BM2 ' , 

’  8M2  ’ 

•  BM2  • 

, ' BM2 * 

,  '  BM2  '  , 

'  BM2  ' 

'  BM2  • 

,  1  BOl  * 

,  '  BOl 

,  '  BOl 

. ' BOl • . 

•  BOl  1 

■  BOl  ' 

, ' BOl ' 

,  ' BOl  '  , 

'  BOl  * 

♦ 

•  BOl  1 

,  ■  BOl  * 

, ' B02 ' 

,  '  B02 

,  ' BOS  *  , 

'  BOS  ' 

•  BOS  * 

, ' C02 1 

,  '  C02  '  , 

'  C03  ' 

♦ 

■  C03  • 

,  '  COS  ■ 

, ' C04 ' 

,  '  C04 

. ' C04 • , 

1  C04  * 

•  FI  1  • 

,  ' FI  1  ' 

,  '  FI  1  '  , 

'  GUI  ' 

♦ 

'  GUI  1 

,  1  GUI  ‘ 

,  '  GUI  ' 

,  '  GUI 

.  'GUI  *  , 

•GUI  • 

■  GUI  • 

,  *  GU2 * 

,  '  GU2  *  , 

*  CU4  ' 

♦ 

'  CU4  • 

,  1  GU4  • 

, ' GU4 ' 

,  '  GU4 

, ' GU4 ' , 

1  GU4  ' 

'  HI  3  ' 

,  ' RSI  ' 

,  '  RSI  '  , 

'  RSI  1 

4- 

’  R31  • 

,  'RSI  ' 

,  ' HS2  ' 

,  '  RS2 

, ' RS2 ' , 

'  R32  1 

'  RS2  • 

, ' RS2 ' 

,  ' RS2  '  / 
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Subroutine  SPEC1  Continued  4/18/88 


DATA  TMP1  / 


♦ 

i , 

2  , 

3, 

1  , 

2, 

5, 

1  , 

2, 

3, 

4 

♦ 

5  , 

1  . 

1  . 

2  , 

3  , 

4  , 

5, 

4, 

7, 

a 

♦ 

9  , 

10, 

1  1  , 

12. 

13, 

1  , 

2, 

3, 

6  , 

l 

♦ 

2, 

3  , 

4  , 

4  , 

7  , 

11  , 

1  , 

2, 

3, 

4 

♦ 

3, 

4  . 

7, 

8, 

9, 

10. 

1  1  . 

1  2  , 

1  3  , 

1  4 

♦ 

13  , 

1  8  , 

17  , 

18  , 

19, 

20  , 

21  . 

22  , 

23, 

24 

♦ 

25  , 

2  6  , 

27, 

28  , 

29  . 

30  , 

31  , 

32, 

33  , 

34 

♦ 

35  , 

3  4  , 

37  , 

38  , 

39  , 

40, 

41  , 

42, 

43, 

44 

♦ 

45  , 

1  , 

2  , 

22  . 

23  , 

24  , 

25  , 

26, 

27, 

3  1 

♦ 

33, 

33  , 

1  , 

2  , 

1  . 

2  , 

3  , 

1  , 

2, 

1 

♦ 

2  , 

3  , 

1  , 

3  , 

4  , 

3  , 

1  . 

2. 

3  , 

1 

♦ 

2  , 

3, 

4, 

3  , 

4  . 

7, 

8. 

1  , 

2, 

1 

2  , 

3  , 

4  , 

3  , 

6  , 

7  , 

1  . 

1  , 

2, 

3 

♦ 

4  , 

3  , 

1  , 

2  , 

3, 

4, 

5, 

6. 

7/ 

DATA 

TMP2 

/ 

♦ 

12  . 

1  2  , 

12, 

12, 

12  . 

12, 

11  . 

1  1  . 

1  1  , 

1  1 

♦ 

1  1  , 

3  , 

5, 

5, 

5, 

3, 

3, 

3, 

3, 

5 

♦ 

3  , 

3, 

3  , 

3, 

3  . 

5, 

5  , 

3, 

5  , 

5 

♦ 

3, 

3  , 

3  , 

3  , 

3  . 

5  , 

3  , 

3, 

5  , 

5 

♦ 

5, 

3. 

3, 

3  , 

5  , 

5  , 

5, 

5  , 

5, 

5 

♦ 

3  , 

3  , 

5, 

3  , 

5, 

3  , 

5, 

3, 

3  , 

5 

♦ 

3, 

3, 

3  , 

5  , 

5  , 

3  , 

5, 

5  , 

3  , 

5 

♦ 

3  , 

10, 

10, 

10, 

10  , 

10, 

10, 

10, 

10, 

10 

1  0  , 

10, 

3, 

5, 

10, 

10, 

10  , 

14  , 

14  , 

8 

■f 

8  , 

8, 

3  , 

3  , 

3, 

5  , 

l  1  , 

l  1  , 

11  , 

9 

♦ 

9  , 

9  , 

9  , 

9  , 

9, 

9  , 

9  , 

9, 

9  , 

9 

♦ 

9  , 

?  , 

9  , 

7  , 

9. 

9  , 

10  , 

6  , 

4  , 

4 

♦ 

4  , 

4  , 

4  , 

4  , 

i  . 

«  . 

i  , 

6  , 

4/ 

Function  AZIMR  4/20/88 

Just  before  RETURN 

Insert : 

IF  < AZIMR . LT. -PI >  AZIMR  >  AZIMR  ♦  PI2 


This  is  a  cri tied  correction.  AZIMR  wss  not  returning  the 
correct  value  when  the  target  wss  on  the  positive  side  ot  the  PTL , 
when  the  PTL  wss  between  1 3 S  and  +180  or  between  -133  and  -ISO. 
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Subroutina  BI3 

8/ 1 / 88 

A  f aw  linaa  above  labal  38?? 

Chang# : 

IF  (NFR . EQ . NFRN)  ND»NFR 

To  : 

IF  (NFR. BQ. NFRN)  THEN 

ND-NFR 

CALL  Z I NTTF  <  A , 0 ) 

END  IF 

Juat  abova  labal  88?? 

Dalata : 

IF  (ISV.EQ.l)  CALL  ZINTTF<A,0> 

Formation  A  should  still  ba  allocatad  to  tha  old 
unlass  tha  formation  did  not  split  (whan  NFRaNFRN) . 

track  file 

Subroutina  USRCOM 

8/1/88 

Add  : 

COMMON  /BOG/  NBOG1 

C  -  BOl  - 

NBOC1  -  0 

Changad  dua  to  arror  in  BOl .  Call  was  baing  mada  from  BOl  with 
incorract  CU  bacausa  NBOG1  was  not  initialixad  bafora  sacond 
raplication.  Valua  in  NB0G1  was  laft  ovar  from  first  raplication. 

Subroutina  RSI 

8/1/88 

At  tha  baginning,  after  RS»ACTCU(1> 

Insar  t : 

□0  222  L«l, 10 

222  NPASCU(L)  -  0 

Subroutina  RS2 

8/1/88 

At  tha  baginning,  aftar  N« 1 

I  n  s  a  r  t  : 

□0  222  L-  l  ,  1  0 

222  NPASCU(L)  •  0 

Changad  dua  to  error  in  RS2 .  NPASCU  array  was  not  baing 
initialised  at  tha  beginning  of  RSI  and  RS2.  At  the  and  of  RS2, 

NPASCU  is  written  into  PASCU. 
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Subrsotlnt  PDECLR  8/1/88 

Before  label  1000 

Infar  t 

1 F ( I R . GT .10)  IR.10 


This  is  tha  naa  as  X  getting  increnanted  in  RS2.  Whan  K .  GT .  1 0  , 
K  is  a  1 wa y s  sat  >  10,  but  this  is  not  dona  tor  IR  wh ich  is  passad 
back  as  K  to  IDEXEC  and  RS2 . 


Subroutine  BM2 


8/1/88 


Attar  label  2S00 

Delate: 

I F  <  CRM3L  <NP  >  . OR . TYP3S ( NP ) )  CALL  REMCU(NP) 

This  statement  applies  to  BOCEY,  it  was  a  repeat  of  the 
statement  a  fa w  lines  above  it. 


Subroutine  RSI  8/1/88 

Below  label  22 

Move  : 

TR-TREDYCRS) 

To:  upjustafter 

TSAVE-T 

Correction  from  TRAC-VSMR 


Subroutine  RS2 


8/1/88 


Before  label  930,  before  CALL  SILENCCRS.T) 

Inser  t  : 

IF  (MSMISR.NE . 0)  THEN 
CALL  ZOUTAC  <  RS ,  . TRUE .  ) 

GO  TO  930 
END  IF 

If  the  HIMAD  is  out  of  missiles  on  the  launchers,  but  still 
guiding  missiles  in  the  air,  do  not  silence  the  radar.  Set  the  out  of 
action  flag.  The  radar  will  be  silenced  after  all  missiles  eaplode  in 
Subroutine  BM2 . 


Subroutine  B13  8/1/88 


Before  call  to  VISID 

Insert  : 

HSTL  -  FALSE. 

At  the  suggestion  of  F.  Burns 


E- 19 


CAA-SR-89-3 


Subrout  tm  CU1 

Otelar*: 

REAL  N1MIS 


At  the  suggestion  of  F.  Burns 


Subroutine  CORDNS 


At  label  1 
Change:  the  last 

F7  .  2 

To  : 

F8 . 2 


sssssiaasBiRt 

8/1/88 


3  3 


a / l / 88 


TR  can  be  as  large  as  80,000  - 
Caused  an  error  in  WRITE  to  summary 


Default  value  put  in  the  program, 
file. 

aaaKaaBBBBaBaBBaB8BBBBBa83aB3aBBBB3B 


Subroutine  C03 


8/29/88 


IS  lines  below  label  SO 
Insert:  before  RESIND(l)-2 

NR-NR+1 

IF(NR.CT.IO)  NR- 10 

Change : 

RES IND ( 1 ) -2 

To  : 

RES IND  <  NR ) - 2 

When  allocating  fighters  to  the  intercept  of  BOCEYs,  the 
result  indicator  was  only  getting  set  once  for  each  engageable  TF , 
but  if  one  formation  of  strip  ready  fighters  are  not  enough  then 
another  must  be  allocated  to  the  TF  and  it  must  be  represented  in 
the  result  indicators. 

Down  a  couple  more  lines,  after  CALL  EVNOUT ( NC03 , 2 ) 

Insert  . 

NP ASCU  <  NR )  «P 
NACTCU  <  NR ) -GL 
LKCU-0 


Need  to  keep  track  of  all  different  formations  allocated  to 
separate  track  files  to  coincide  with  RESIND  array.  Also  LKCII 
must  be  set  back  to  0  so  that  NT-LKCU  on  the  line  below  will  be 
set  back  to  0  before  the  call  to  SCHLNK.  This  will  ensure  that 
SCHLNK  will  look  for  the  proper  link  type  instead  of  assuming  the 
value  which  was  left  in  NT  from  the  last  call  to  SCHLNK. 
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Subrout l m  SILENC  8/29/88 

After  NCOaCOMC (A) 

Insert : 

IF  (NCO.EQ.O)  RETURN 

Vhsn  HIMAD  is  autonomous  < COMCTRaNONE ) ,  SILENC  was  celling 
ORPTR  to  dump  ths  tricks  aisoditid  with  the  COMCTR,  whin  t hs 
COMCTR-O.  This  was  causing  an  error. 


Functions  POLCHK  and  POLICD  in  C0M04 . DKS  8/29/88 

Under  reject  criteria 

Delete: 

IP  < < IDUD2 . LT. 1 ) . OR . < IDUDZ . CT . 27 > >  STOP  •POLCXOl' 

Can  not  see  any  reason  (or  checking  the  range.  This  array  holds 
the  select  and  accept  units  and  was  limiting  the  number  of  units  to  27 
(or  no  apparent  reason. 


Subroutine  C03  8/31/88 

Add  : 

COMMON  /NARRAY/  NACTCU ( 1 0  > , NP ASCU (10), NR 
Delete: 

DIMENSION  NACTCU (10) 

DIMENSION  NPASCU (10) 

Needed  to  define  this  common  block  so  that  the  model  would  keep 
track  o(  multiple  CAP  formations  being  sent  out  on  GCI  in  routine 
CAPCHK.  Before  only  one  position  in  the  RESIND  array  was  getting  set. 


Subroutine  CAPCHK  8/31/88 

4  lines  below  label  20 

Insert : 

NR-NR+ 1 

IF  <NR.GT.10>  NR a  1 0 
Ne  st  line  d  own 

Change: 

RES IND  < 1 )«1 

To  : 

RESIND  <  NR ) a  1 
Insert:  directly  after 

NACTCU  <  NR  >  aB  I 
NPASCU  <  NR ) »P 

These  changes  go  with  the  8/31/88  changes  to  COS 
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Subroutine  BI3 


8/31/88 


8  1 intf  balow  libel  9010 

Chang* : 

IF  < . NOT . SWE  .OR.  <MM1.SQ.0>>  CO  TO  13 

To  : 

IF  (SWE  AND.  (MM1.NE.0))  CO  TO  13 


This  is  tha  ititioint  which  tasts  and  pravants  tha  fighter  from 
par  forming  a  spacial  maneuver.  It  was  performing  special  maneuvers 
under  conditions  exactly  opposite  of  those  conditions  for  which  the 
maneuver  should  be  made. 


Subroutin*  DTI 


9 / 1 2 / 88 


Add  : 

COMMON  /TIMER/  ITIMER_ADDR 
Dec  I  are: 

CHARACTER* 20  CTIME , CDATE 
INTEGER**  STATUS 
EXTERNAL  L 1 B* SHOW_TI MER 

After  declarations 

Inser  t : 

DATA  CTIME, CDATE/2*  • - N/A - '/ 

At  tha  vary  beginning 

Inser  t : 

IF  ( AMOD ( T , 2  0  0  .  )  EQ  .  0 )  THEN 
CALL  DATE (CDATE) 

CALL  TIME ( CTIME ) 

PRINT  *,  . . . . . 

PRINT  *,‘  DATE:  CDATE , ' TI ME :  CTIME 

PRINT  «,*  SIMULATION  TIME  a  • ,T 

STATUS  ■  L I B I SHOW_TIMER ( ITIMER_ADDR , l > 
STATUS  «  LIB*  SHOW_TIMER ( I TI MER_ADDR , 2 ) 

PRINT  *,  . . . 

END  IF 

IF  (SSNUMB . GT. 1 )  THEN 
TD« ACTCU ( l ) 

TPR«OELT(TD> 

I F (T+TPR . LE . TSUCD(TD) . OR .TSUCD(TD) . LE . 0 ) 
*  CALL  SCHEDL(TD,NDT1 , T+TPR) 

RETURN 
END  IF 
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Subroutine  DTI  Continued  9/12/SB 

All  of  thie  la  to  print  out  information  to  the  SYStOUTPUT  file. 
CPU,  Elapsed,  Simulation,  and  Real  times  as  well  as  the  date  are 
dumped  out.  This  is  to  help  with  debugging  the  model  and  locating 
where  in  a  subsample  the  program  is.  It  helps  to  locate  when  the 
model  is  stuck  in  an  Infinite  loop. 


Subroutine  USRCOM  9/12/88 

Add  : 

COMMON  /TIMER/  IT1MER_ADDR 
Declare: 

INTEGER* 4  STATUS 
EXTERNAL  LIBS INIT_TIMER 

At  the  beginning 

Insert : 

C  ***  INITIALIZE  THE  TIMER 
ITIMER_ADDH-0 

STATUS-LIB* INIT_TIMER< ITIMER_ADDR> 

This  change  goes  with  the  9/12/88  change  to  DTI.  It  just  simply 
resets  the  timer  to  0  at  the  beginning  of  each  subsample. 


Subroutine  CAPCHK  9/15/88 

Last  line 

Change : 

IF  (JF.Ea.ll  AND.  BI.NE.O)  CALL  ZTINTCTF.TM) 

To  : 

II  (JF.Ea.O  AND.  BI.NE.O  .AND.  TM . LT. TINTtTF ) > >  CALL  ZT I NT ( TF , TM ) 

This  was  changed  to  help  with  the  discrepancy  over  the  dispatching 
of  CAP  aircraft  between  the  CIAD  and  CISCIAD  models.  Change  to  CIAD 
model  from  D.  Michael,  AFOTEC,  1986. 
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Subrout  in*  SOS  9/27/88 

Add  : 

*C  ALL  PARAM 
Docltri : 

INTECER  PAR3 , PAR4 , PARS 
LOCI  CAL  OUTCM , INDET 

S  1  inn  balow  label  20,  attar  I F (. NOT. COMP AT  ate. 

I  ns*  r  t : 

IF  ( OUTCM (PASCUt 1 ) ) . OR. INDET(PASCU< 1 ) ) )  CO  TO  30 
PASCU ( 2 ) sNSHORD ( INOVAL) 

A  tew  more  lines  down,  after  IF(MSK.LE.O)  CO  TO  30 

Insert: 

PAR3-IG 
PAR4-JG 
PARS  sMSH— 1 


Subroutine  SPEC1  9/27/88 

Dec  1  ere : 

INTECER  PAR3 , PAR4 . PARS 

In  DATA  TMP2  statement  change  the  "go  to"  prompts  from  10  to  18 
for  the  three  BOS  result  indicators. 

Just  above  label  2 

Add  : 

label  218  to  the  list  of  CO  TO 1 s 


Change:  label  218 
To:  label  217 


Directly  above  label  212 

Insert  : 

218  A*  PASCU  <  2 ) 

PASCU  < 1 ) -ACTCUt 1 ) 

KMI S«P AR3 
KREL*PAR4 
HA-PARS 
XAsO  . 

YA-0  . 

CO  TO  300 

3  lines  below  label  212 
TO  218 
TO  217 


80 


Change : 
GO 

To  : 

CO 
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Subroutine  SPEC1  and  BOS 


Conti nued 


9/27  #  8  8 


Changes  were  made  to  correct  the  posting  of  result  indicators  for 
SHORAD .  Also  BOS  change  checks  to  make  sure  BOCEY  is  not  out  of  game 
or  in  close  combat  (dogfight)  before  shooting. 


Subroutine  RSI  9/29/88 

Above  label  11,  change  the  IF  -  ENOIF  block 

Change : 

CO  TO  11 

To  : 

CO  TO  111 

Delete: 

ELSE 

Move  : 

ENDIF  up  to  where  the  ELSE  was 

Just  below  label  11,  put  a  111  label  on  statement  CALL  ZRED ( RS , . TRUE . > 

This  change  was  made  because  SDTCT  was  being  accessed  for  SENSOR, 
but  SENSOR  does  not  have  a  SDTCT. 


Subroutine  SPEC1  9/29/88 

Declare. 

LOGICAL  SAMF 

Directly  below  line  204  A-ACTCU(l) 

Insert : 

IF  <  NOT  SAMF (A) >  GO  TO  301 

This  change  was  made  because  missile  parameters  were  being 
accessed  by  SENSOR  which  the  SENSOR  does  not  have. 


CAA-SR-89-3 


SubtouUnt  C03 

.  1  line  up  form  Ubd  100 

C hange : 

GO  TO  195 

To  : 

GO  TO  191 

2  lines  below  libel  190 


Change : 


To  . 


DO  777  NR- 2 , 10 
191  DO  77  7  NR- 1  ,  10 


Move:  the  line  below  label  190 
ACTCUC 1 >=CO 

To:  directly  below  label  777 

To  correct  the  posting  of  result  indicators  in  C03 . 


9/29/8 


Subroutine  INT1N  9/29/8 

Mo  ve  : 

CALL  ZCLASS  <  I , J J ) 

To:  below  label  12,  beneath  CALL  ZZQ(I.II) 

Move  : 


To  : 


CALL  ZINDETl  I  ,  . FALSE  .  > 

below  CALL  ZCLASS < I , JJ ) ,  4  lines  down  from  label  12 

Need  to  have  CLASS  sat  before  setting  INDET  of  the  interceptor. 


Subrout ina  BM2 


9/29/8 


After  label  28,  below  CALL  RCUBM2CBM) 

Insert  : 

ITG-TGNAME <  CL ASS ( NP  >  > 

IF  < ITG . EQ . ‘  HIMAD')  THEN 


Then  below  the  END  I F  from  the  I F C MSM I S < NP > >  block 
Insert :  ano  t  he  r 
END  IF 


Code  in  the  IF  -  END  I F  block  only  applies  to  HIMAD. 

aaaaaaaaaaaaaaaaaaaaaaaaaaa&aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaeaaaaa 


E-26 


CAA-SR-89-3 


E-27 


CM-SR-89-3 


Subroutine  LAUNCH  9/29/8E 

Cheng* : 

IF  ( ( ITC . EQ . '  BOGEY '). AND . (TYPSS  *te. 

To  : 

IF  (ITG.EO.*  BOGEY')  THEN 

IF  (TYPSS  (  AC )  .  .  etc.)  GO  TO  5 
END  IF 

TYPSS  is  only  relid  (or  BOGEY  eircreft,  end  should  only  b* 
ecctssid  by  units  which  en  BOGEY'S. 


Subroutine  SPEC1  9/30/8E 

In  DATA  TMP2  stetement  chenge  the  indexes  from  5  to  8  for  the 
following  BM2  result  indicetors: 

4,10,21,22,23.24,25,28.35,38,37,41 

To  correct  e  posting  problem  for  BM2  RESINDs. 


Subroutine  KINCHK  9/30/8£ 

Chenge : 

GASN-GASNV(BI) 

IF  ( FROM . EQ . 1 )  CASNbCASSO ( FI) 

To  : 

IF  ( FROM . EQ . 1 )  THEN 
GaSN-GASSO (FI ) 

ELSE 

GASN*GASNV(BI ) 

END  IF 

The  CASNW  peremeter  is  only  relid  if  BI  is  en  interceptor. 


Sub r ou t in*  C02 


9 / 30 / 8f 


At  the  beginning 

Insert: 

NX-Q 

Following  IF  (INDVAL.NE .0)  GO  TO  2 
Comment  out: 

NX«NXFRM( P) 

The  model  wes  trying  to  eccess  NXFRM  (or  the  AVACs ,  which  is 
i  nr  e  1  id 
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Subroutlm  C02  9/  30/  88 

Dec  Un : 

LOCI  CAL  RED 

Lina  at  tar  label  2 

Change : 

IF  <  NOT.ESC(P) >  GO  TO  18 

To  : 

IF  ( RED ( P ) )  THEN 

IF  (  NOT. £SC(P) )  CO  TO  18 
END  IF 

ESC  ia  a  paramatar  only  tor  rad  alreratt  and  should  not  ba 
cal  lad  otherwise. 


Sub  rout i na  B I 3 

10/3/88 

At 

label  87 

Changa : 

87 

IF 

( AWAX (FI)) 

CO  TO 

848 

To  : 

87 

IF 

<  .  NOT  .  RSW) 

THEN 

IF  < AWAX < FI))  CO 

TO  848 

END  IF 

Tha  AVAX  paramatar  ailiti  only  tor  tha  blua  fighter, 
must  maka  sura  It  has  a  blua  active  unit  bafora  accaistng 


Tha  program 
i  t  . 


Subroutina  BIS 


Changa : 

At 

label  13 

1  3 

To  : 

IF 

(NOT. RBI  AND. 

AWAX (FI ) ) 

13 

IF 

< . NOT. RBI )  THEN 
IF  (AWAX (FI))  CO 

TO  98 

END  IF 

10/3/88 


Tha  AWAX  paramatar  asists  only  for  tha  blua  fightar. 
must  maka  sura  It  has  a  blua  active  unit  bafora  accassing 


The  program 
x  t  . 
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Subioutim  C04 


10/3/88 


9  lints  above  labtl  1 

Dslata: 

WFRST-W 


2  lints  abovt  that 

Change : 

WO.WFRST*  (  1  .  +  . 5*CORR> 

To  : 

WFRST-WFRST* ( 1 . + . 5«CORR) 


Tha  tirst  lint  was  a  misprint,  thara  is  no  variable  W  in  this 
rout int . 


Subroutina  BIS 


10/3/88 


Balow  1  aba  1  548 

Change  : 

IF  (AVAZ(FD)  CO  TO  S  5  4 

To  : 

IF  (NOT. RBI)  THEN 

IF  <  AWAZ (FI ) )  GO  TO  556 
END  IF 

AWAZ  is  only  a  paramatar  of  tha  blua  fightar  and  should  not 
bo  accossad  othorwisa. 


Sub  r  ou  t i no  BM2 


10/3/88 


Abovo  labal  SOI 

Changa : 

IF  (AWAZ (FI ) )  GO  TO  555 

To  : 

IF  ( .NOT. RED(P> >  THEN 

IF  ( AWAZ ( F ITYP ( P ) ) )  GO  TO  555 
END  IF 

AWAZ  is  only  a  paramatar  of  the  blue  fightar  and  should  not 
ba  accessed  otherwise. 


Subroutina  BI3 


10/3/88 


About  20  lines  from  tha  beginning 

Changa : 

IF  ( .NOT. AWAZ(FI )  AND.  . NOT . RED ( A ) >  CALL  Z IND6 ( A .  FALSE  ) 

To  : 

IF  (  NOT. RED( A) )  THEN 

IF  (  NOT  AWAX(FD)  CALL  Z  IND6  (  A  ,  .  FALSE  .  ) 

ENIDF 

Tha  AWAX  parameter  exists  only  for  the  blua  fightar.  The  program 
must  make  sure  it  has  a  blue  active  unit  before  accessing  it. 
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Subroui  tm  BOOST  10/3/88 

DteUrt : 

LOCI  CAL  RED 

Baton  IF  (IND8(A)>  CO  TO  2 

Insar  t : 

IF  ( RED ( A  > )  THEN 
CRUSEV-FLTSPD< A) 

ELSE 

CRUSE Va SCRUS (FI  > 

END  IF 

A  taw  linas  balow 

Dalata: 

CRUSE V-SCRUS ( FI > 

In  tha  two  IF  taat  linas  that  follow 

Rap  1 aca : 

SCRUS  <  F I ) 

Wi  th: 

CRUSEV 

Tha  aircraft  cruising  spaad  must  ba  obtainad  diffarantly  depending 
upon  whethar  tha  aircraft  is  blua  or  rad.  Thara  is  no  SCRUS  for  rad 
aircraft. 


CISCIAD.ORG  ft  la  10/3/88 

Add:  to  tha  BOGEY  waiponf  dock 

*4  CURDV  0  0  24 

Changa  from  F.  Burns,  SRS . 


Subroutina  BM2  10/4/88 

A  f aw  linas  balow  labal  301 

Changa : 

IF  ( ESC  <  NP  > )  CO  TO  11 

To  : 

IF  <  RED ( NP ) )  THEN 

IF  (ESC(NP) )  CO  TO  11 
END  IF 

ESC  is  a  paramatar  only  for  rad  aircraft  and  should  not  be 
called  o  tha  rwi sa . 
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Subroutine  BIS 


10/4/88 


2  linos  above  label  35 

Change : 

IP  (.NOT. RBI  .AND.  ICAP(BI)  .AND.  INI  23 ( BI ) . EQ . 4 >  CO  TO  818 

To  : 

IF  (.NOT.  RBI)  THEN 

IF  ( I  CAP ( B I )  AND.  IN123 (BI)  . EQ  4)  CO  TO  818 
END  IF 

ICAP  is  a  parameter  only  for  blue  aircraft  and  should  not  be 
called  otherwise. 

Just  below  label  128 

Change : 

CALL  SCHEDL(B1  , NB02 , T+  DT2 2  > 

To  : 

CALL  SVFL I P( N902 , NB05 , BI , 1+DT22 ) 

B02  events  were  getting  scheduled  improperly 


Subroutine  BI4 


10/7/88 


3  lines  below  label  7 
Comment  out:  the  nest  10  lines 

start  with  IF  ( . NOT . RED( BI ) )  CO  TO  20 

end  with  ♦  K . EQ . 2 )  CALL  EVFL I P ( NB02 , NBOS , BI  , DTB2  2 ( F I >  > 

BI4  was  restarting  the  B02  escort  search  event  after  a  missile 
launch,  but  it  already  gets  started  by  another  event. 


Subroutine  DTI 

2  lines  below  label  200 

Change : 

IF  ( (  NOT  DEAD( I )  )  OR.  (  . NOT . OUTGM ( I ) >  >  THEN 

To  : 

IF  ( (  NOT  DEAD( I ) )  AND.  ( . NOT . OUTGM ( I ) ) >  THEN 
2  lines  below  label  413 

Change : 

IF  ( ITG . EQ . '  GENMIS')  THEN 

To  : 

IF  ( ITC . EQ . '  BLUMIS' )  THEN 


10/17/88 


Tracks  should  be  dumped  for  each  time  step  only  if  the  unit  is 
alive  AND  in  play  (not  engaged  in  a  dogfight),  not  one  OR  the  other. 
The  internal  name  for  missiles  is  BLUMIS  and  not  GENMIS. 
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Subroutine  BI3  10/20/88 

Chang# ; 

444  IF  ( . NOT . ( RSW . OR .RED(P) ) )  GO  TO  131? 

To  : 

444  IF  (NOT. RSW  AND.  . NOT .  RED ( P )  >  GO  TO  131? 

This  statement  was  incorract.  Rad  aircraft  wara  baing  axcludad 
from  dogfighting.  Tha  intant  of  tha  statamant  is  to  keap  blua  from 
dogfighting  blua. 

Above  labal  110 
Commant  out: 

IF  < . NOT . CFTR  AND. RSW)  GO  TO  110 

This  statamant  kaaps  rad  ascorts  and  intercaptors  from  scheduling 
BI1  to  implement  maneuvers. 


Subroutine  BOX  10/21/88 

Declare : 

CHARACTER  *  8  TGNAME 
INTEGER  CLASS 

Below  IF  (NTG.EQ.0)  RETURN 

Insert : 

IF  (TGNAME ( CLASS (NTG) ). Ed.  •  INCEPTB '  >  THEN 
Before  CALL  ZTGT(A.O) 

Insar  t  : 

END  IF 

Tha  ENGD  parameter  belongs  to  tha  blue  interceptors  and  should  not 
ba  accessed  if  the  BOGEY  has  anything  other  than  an  interceptor  for  a 
targe  t . 


Subroutine  BM2  10/21/88 

Declare: 

LOGICAL  ILM 

After  30  CONTINUE 

Insert : 

ILM  »  ILLUM(NP) 

Aftar  label  34 

Change : 

IF  (DEAP(NP) . AND.  NOT  FANDF(MT) >  GOTO  13 

To  : 

IF  (DEAD(NP) . OR .  NOT. ILM) . AND . . NOT  FNDF)  GOTO  13 

Subroutine  BM2  was  not  checking  to  see  if  tha  aircraft  that 
launched  tha  missile  was  no  longer  tracking  tha  target. 
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Subroutine  BI3  10/21/88 

After  label  103  and  the  comment  line  that  follows 

Insert : 

CALL  ZILLUMCA, . FLASE.) 

This  is  just  to  initialize  the  fighters  illumination  flag  after 
an  engagement  is  canceled. 


Subroutine  BIS  10/21/88 

Below  label  200,  after  CALL  ZATCKG < BI ,. FALSE . ) 

Insert : 

CALL  ZIND?<8I ,. FALSE . > 

CALL  ZILLUM< BI ,. FALSE . > 

CALL  ZNFIREf  BI ,0) 

Below  81  CONTINUE 

Insert : 

CALL  ZILLUMCBI , .FALSE. ) 

CALL  ZATCKG ( B I , . FALSE . ) 

CALL  ?!NDV<BI , .FALSE. > 

CALL  ZNFIKE  < b  I  , 0 ) 

Flags  were  not  getting  reset  when  a  target  was  dropped. 


Subroutine  BI3  10/21/88 

About  10  lines  above  label  442 

Move  : 

NOOT  -  ENCD <  JP )  -  NFR 
To:  below  statement 

IF  (NOT.RSW)  GO  TO  44Z 

The  ENGO  parameter  is  being  accessed  by  units  which  do  not  have 
that  parameter.  Red  aircraft  are  the  only  ones  who  can  access  this. 


Subroutine  USRCOM  10/25/88 

Declare : 

COMMON  /MSMTRX /  MSHTSR (20,20,3)  , NOSHD ( 3  > 

After  NBOG1  «  0 

Inser  t : 

C  *  *  *  BOS  *  *  * 

DO  44  Lei,  3 
4  4  NOSHD <  L  )  «0 

The  NOSHD  array  was  not  getting  initialised  between  replications. 
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Subroutine  B13  10/26/88 

Doc  1  a  r • : 

LOGICAL  RDSCH 

Above  comment  IF  BLUE  FINDS  BLUE  TARGET  IS  WITHIN  VISDR,  DROP  IT 

Insert- 

SWE  *  FALSE. 

IF  <TGT< P) . EO . A) . AND. < ATCKG< P> . OR . IND9 < P> > >  SWE  -  TRUE. 

IF  < . NOT . RSW)  THEN 

IF  CAWAXCFI))  GO  TO  1319 
END  IF 

9  lines  below  label  1319 

Delete: 

SWE  -  FALSE. 


Change: 

8  7  IF  (AWAX(FD)  GO  TO  84  6 

To  : 

IF  (NOT. RSW)  THEN 

IF  < AWAX  <  FI  >  >  GO  TO  846 
END  IF 

and  move  this  new  block  up  3  lines 
To:  above 

IF  < (MM1  .NE . 0 ) . OR. (MM2 .  NE . 0) )  CO  TO  88 

These  changes  correct  the  setting  of  the  SWE  'lag  and  correct  the 
logic  for  accessing  parameters  for  AWAX. 

Above  label  88 

Change : 

IF  < CMM1  NE. 0)  OR. (MM2 . NE . 0) )  GO  TO  88 

To  : 

IF  (MM1+MM2  .  GT.  MINMSL )  GO  TO  88 

Uses  COMIL  inpu.t  to  check  for  minimum  missiles  rather  than  0 
for  fighters  or  escorts  to  return  to  base  or  go  home. 

On  the  next  1 ine 

Change  : 

IF  ( ILL UM <  A >  >  GO  TO  87 

To  : 

IF  (I LLUM<  A)  >  GO  TO  13 

Avoids  aircraft  checking  AWACs  flag  when  not  applicable. 
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Subcoat i n*  813 


Conti nued 


10/24/80 


Bolow  label  88 

In»r  t  : 

IF  < . NOT.MLTGTIFI )  .AND.  SUE)  GO  TO  888 
On  the  nut  lin* 

Chingi : 

IF  ( <  NFR . EQ .  1 )  . AND .  < I LLUMC  A )  . OR .  ( TGT ( P )  . EQ . A )  ) )  GO  TO  888 

To  : 

IF  ( (NFR. EQ . 1 ) . AND . SWE)  GO  TO  888 

Avoids  switching  targets  if  aircraft  doss  not  have  the  capability 
or  if  hs  is  a  single  aircraft  and  is  currently  engaged. 

About  12  lines  below  label  88 

Change : 

IF  (RT.GT.DT)  GO  TO  99 

To  : 

IF  (RT.GE.DT)  GO  TO  99 

Changed  by  D.  Michael,  AFOTEC,  1984. 

On  the  line  below 

Change : 

PAR2  »  1 

To  . 

PAR2  -  0 

Insert:  afterwards 

IF  (RDSCH(FD)  PAR2  .  1 

Search  routing  SYSFI  uses  variable  PAR2  to  indicate  whether  the 
fighter  has  its  own  radar  search  capability. 

About  3  lines  below 

Delete: 

ITGCMP  =  0 

About  12  lines  below  that 

Delete: 

ITGCMP  »  1 

Variable  ITGCMP  does  not  appear  to  be  used. 
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Subrout int  BI3  continuid  10/26/83 

4  lines  below  label  1S05 

Change : 

IF  CA.EQ  TCT ( PASCU ( 1 ) ) )  GO  TO  1318 

To  : 

IF  (A. EQ.TGT(PASCU< 1 ) > )  GO  TO  131? 

A  tew  lines  below  that 

Change : 

IF  < ILLUM(A)  OR. .NOT. ATCKG(A) >  GO  TO  BBS 

To  : 

IF  ( I LLUM  ( A >  . OR . ATCKC ( A ) )  GO  TO  888 
On  the  nest  line  down 

Delete: 

IF  ( ITGCMP. Ed. 1 >  GO  TO  1318 

2  lines  above  label  ISIS 

Change : 

IF  (TPASCU.GT.TP)  GO  TO  1318 

To  : 

IF  (TPASCU.GT.TP)  GO  TO  1317 
Below  label  1317 

Inser  t : 

PASCU(l)  «  P 

Below  label  887? 

Change : 

IF  < ISW. EQ. 1 )  GO  TO  13 

To  : 

IF  ( ISW. EQ. 1 )  GO  TO  105 
Before  label  1318 

Inser  t : 

1317  IF  (ILL  UM ( A ) )  THEN 

CALL  CANCEL ( A , NB 14) 

CALL  ZATCKG( A, . FALSE . > 

CALL  Z IND? ( A ,  TRUE . ) 

GO  TO  888 
END  IF 

3  lines  before  label  888 

Insert : 

CALL  ZINDETCA,  .FALSE.  ) 

Corrects  inconsistencies  in  Subroutine  BI3  code  between  CISCIAO 
and  C I  AD .  Changes  made  to  CIAD  by  D.  Michael,  AFOTEC,  1986. 
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Function  SYSFI  10/26/88 

Delete: 

LOGICAL  RDSCH 

16  1  Inti  balow  Ubil  102 

Change : 

IF  ( <  TGT<  P )  . £□ . 8 1 )  . AND . RDSCH ( F I  )  )  GO  TO  6 

To  : 

IF  < (TGT(P) . EQ . BI > . AND . PAR2  NE . 0 >  GO  TO  6 
2  linaa  above  labal  2 

Change : 

IF  (RDSCHC FI ) . AND . PAR2 . NE . 0 )  GO  TO  3 

To  : 

IF  ( FAR2  . NE . 0  >  GO  TO  3 

2  Linaa  after  labal  10 

Delate: 

IF  ( EVTI ND ( B 1 , NB 13) . EQ . 0 )  GO  TO  13 
I naa  r  t : 

IF  <  NOT. ICAP< BI ) . OR.  NOT. CPINTC FI ) )  GOTO  13 
Changaa  made  to  C 1  AD  by  D.  Michael,  AFOTEC,  1?B6. 


Subroutine  BI2  10/26/88 

Declare: 

LOGICAL  RDSCH 

At  the  beginning,  above  AMO  ■  T- I NT ( T / DTR ) * DTR 

I naa  r  t : 

IF  <  . NOT . RDSCH <  F I  )  )  GO  TO  10 

Down  a  few  linaa  after  the  comment  a 

I  naa  r  t : 

10  CONTINUE 

IF  <  EVTINDf  BI  . NBI 4 )  .NE.  0)  GO  TO  6 

Th i a  ia  to  facilitate  earlier  changea  made  to  BI3  and  SYSFI 
regarding  the  way  PAR2  ia  aet  and  uaad. 


Subroutine  BI2  10/26/88 

S  linaa  above  labal  4  before  line  LN« 1 

I  nsec  i  . 

CALL  ZMODECBI ,20) 

Changaa  made  to  CIAD  by  D.  Michael,  AFOTEC,  1?86. 
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Subroutine  EI5  10/28/88 

2  lines  above  label  208 

Change : 

IF  I  EVTIND I  B  I  , NBI 3  >  . EQ . 0  >  CO  TO  208 

To  : 

IF  ( EVTIND <  B I  , NBI 3 )  .  NE  .  0 )  CO  TO  32 
Delate:  the  nest  line 

IF  l INDVAL  NE . 0)  GO  TO  32 

6  lines  below  label  208 

Change : 

IF  <  I EVTINDI BI  , NB 12)  . EQ. 0 )  . AND.  ( INDVAL . EQ . 0  >  . AND.  NOT  SWC ) 

+  CALL  SCHEDL (BI  , NB I  2 , T  +  DTB 2 2 ( F I  )  ) 

To  : 

IF  ( I EVTINDI BI , NB 12)  . EQ .  0 )  . AND.  I E VTIND I BI  , NB I  3  >  . EO . 0 >  .  AND.  . NOT  SVG > 
♦  CALL  SCHEDL ( B I  , NB I  2 , T  +  DTB2  2 ( F I >  > 

Subroutine  BI2  was  incorrectly  being  scheduled. 


Subroutine  BI2  10/31/88 

Declare : 

LOCICAL  RED 

2  lines  above  label  11 

Delete: 

IF  IEVTINDIBI ,NBI4> . NE . 0 >  CO  TO  i 
2  lines  below  881 

Delete: 

RES  I ND ( 2  >  »  2 
ACTCUtl)  a  BI 
CALL  E VNOUT ( NB I  2 , 2 ) 

At  label  4 

Change : 

RESINDI 1 ) • 1 

To  : 

ACTCU(l)  «  BI 
IF  (RED(PASCU< 1 ) ) )  THEN 
RESINDI 1)  -  1 
CALL  EVNOUT ( NB 12,1) 

ELSE 

RESINDI 1)  »  2 
CALL  EVNOUT I NB 12,2) 

END  IF 
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Subroutine  BI2  continued  10/31/88 

3  tlnti  btlow  label  388 

Delete: 

ACTCU  < 1 )  m  31 
CALL  EVNOUT <  NB 12,1) 


This  is  pert  of  the  attempt  to  get  the  intercept  control  logic 
working  the  same  in  bo ' h  models.  This  cleared  up  a  situation  where 
RESINDs  were  being  posted  twice. 


Subrout ine  BI 3 


11/2/88 


Add  : 

COMMON  /TCHK /  XCHK , YCHX , ZCHK , RCOR2 

About  10  lines  below  label  88 
Insert:  after  PAR1«A 

RCOR2  >  RCORR ( NCO ) 

XCHK  »  XB 
YCHP  -  YB 
ZCHK  »  ZB 

Just  after  label  444 
Insert:  after  YB«Y<P> 

ZB  -  H  <  P ) 

Changes  made  to  CIAD  by  D.  Michael,  APOTEC,  1984. 


Function  SYSFI  11/3/88 

After  label  13 

Insert : 

IF  (TCT ( B I > . NE . 0  AND.  TGTC BI > . NE . P >  THEN 

RCHK  >  <XCHK-X(P)  1**2  ♦  <  YCHK-Y ( P  >  >  *  *2  ♦  < ZCHK-H ( P )  ) * » Z 
IF  <  RCHK . LE . RCOR2 )  RETURN 
END  IF 
Delete: 

IF  (MMISl < BI > . GT  0 >  GO  TO  14 
PAR2  -  0 
GO  TO  3 

Changes  made  to  CIAD  by  D.  Michael,  AFOTEC,  1984. 
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Subrout  ini  BI3  11/3/88 

Dec 1  a  r e : 

LOGICAL  SWEPA3 

Below  label  1505,  after  ISW»0 

I  nee  r  t : 

SWEPAS  »  FALSE. 

Change : 

IF  ( A . EQ . TGT( PASCU ( 1 ) ) )  THEN 

IF  < ATCKGC PASCU< 1 > ) . OR . IND? < PASCUC 1 > ) >  SWEPAS  -  TRUE. 

IF  ( RED<  PASCU Cl))  THEN 

IF  <ESC( PASCUC 1 )>. AND . RCA, PASCUC 1 >>. LT. VISR)  SWEPAS  »  TRUE. 
END  IF 
END  IF 

IF  (SWEPAS)  GO  TO  1317 

Intarceptori  ware  twitching  targets  too  often.  They  should  only 
switch  to  the  new  target  if  they  are  threatened  by  a  missile  launch  or 
the  new  target  is  an  escort  within  visual  range.  Changed  by  D.  Michael, 
AFOTEC,  1786. 


Subroutine  BI3  11/4/88 

Delete : 

CHARACTER* 8  TGNAME , ITG 
At  the  beginning 

Delate: 

IF  CP.EQ.O)  ITG  ■  TGNAME ( CLASS ( P  >  ) 

The  variables  ITG  and  TGNAME  are  never  used  in  BI3. 

7  lines  balow  label  103 

Insert : 

CALL  ZIND7CA,  FALSE . ) 

CALL  ZNF I  RE ( A , 0 ) 

Move:  from  about  10  lines  futher  down,  up  to  where  this  new  code  is 

CALL  ZINDETC A, . FALSE . ) 

These  changes  were  made  to  coordinate  with  the  CIAD  model.  They 
are  present  just  to  be  sure  that  these  parameters  are  initialised  after 
an  engagement  is  canceled. 

8  lines  above  label  442 

Delete: 

ZENGDC  JP , 0 ) 

This  statement  does  not  make  any  sense  here.  ENCD  is  set  again 
two  lines  down  from  here  in  the  code. 
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Subrout lnt  BI3  continued  11/4/88 

S  lines  below  label  444,  after  YA»Y(A> 

Inter t : 

IP  (AVAX(FI>>  CO  TO  44 S 

AWAX  aircraft  do  not  need  to  go  through  this  section  of  code. 

Below  C  **«  IF  BLUE  FINDS  BLUE  TARG ET ...( above  label  448) 

Change : 

IF  (RAP . CT. VI  SR)  GO  TO  44  8 

To  : 

IF  (RAP.CT.VISR)  THEN 

CALL  ZINDET< A, . FALSE . ) 

CO  TO  131? 

END  IF 

Model  was  allowing  aircraft,  which  were  not  within  visual  range 
of  one  another,  the  opportunity  to  dogfight.  This  is  incorrect. 

Delete: 

448  IF  (.NOT  RSW. AND. .NOT. RED(P) >  CO  TO  131? 

Label:  the  next  line  448  as  follows 

448  IF  (CPTR)  CO  TO  131? 

The  model  is  testing  for  a  blue  vs  blue  engagement,  but  a 
situation  such  as  this  will  not  reach  this  part  of  the  code  so 
it  is  unnecessary. 

2  lines  above  label  31? 

Change : 

IF  ( PDET( FI > . GT.  .3  .AND.  RAP.LT.VISR>  VRe . TRUE . 

To  : 

VR  >  TRUE. 

Object  of  this  section  of  code  is  to  set  VR  to  true  if  it  is 
not  already  true  at  this  point.  RAP  is  always  less  than  VISR  here 
or  else  the  program  would  have  branched  over  this  section  to  label  131?. 

2  lines  below  label  31? 

Change : 

IF  (  . NOT . VR  OR.  .NOT.  I NDET ( F >  >  CO  TO  131? 

To  : 

IF  (  NOT.  INDET ( P  >  )  GO  TO  131? 

Since  VR  will  always  be  true  at  this  part  of  the  code,  there 
is  no  need  to  test  it  in  the  statement . 
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Subroutine  BI3 


Cont i  nuad 


8«low  label  131? 

Delete: 

C  AMC  «SPXA*SPXP  +  SPYA*SPYF  +  SPZA«SPZP 
A  f aw  lines  further  down 

Delate: 

SCRR-SA* ( RDOTVA-RDOTVP*GAMC ) 

IF  <  ABS ( 3CRR  >  . LT .  .01)  SCRR-.01 

SVP»SQRT( ABS< 1 ,-RDOTVP**2> > 

IF  C ABSCSVP) . LT.  .01)  SVP- . 0 1 
SPP.SQRTC S( A) **  2 -W<  A ) *  *  2 ) 

IF  (SPP .  LT.  1  .  >  SPP-1 . 

These  variables  do  not  asist  in  COMMONS  and  are  not  used  f 
reason  in  BI3. 

Balow  label  88 

Delate:  first  occurrence  only,  after  NPPP«TGT(A) 

ISV-1 

3  lines  balow  label  ISOS 

Change : 

IF  (A. EQ.TGT(P) )  GO  TO  ISIS 

To  : 

IF  (SUE)  GO  TO  1515 

Changes  made  to  CIAD  by  D.  Michael,  AFOTEC,  1?84. 

2  lines  below  label  ?? 

Change : 

IF  <  RSV)  GO  TO  ISO 

To  : 

IF  (SUE)  GO  TO  150 
Delete : 

ESCFLG  «  TRUE. 

IF  ( RED ( P  > )  ESCFLC  »  ESC<P> 

IF  (ESCFLG  AND .  (RAP)  . LT . VI  SR) )  CO  TO  150 
SWE  «  . TRUE . 

3  lines  below  label  824 

Change : 

CALL  ZIND4(A,  TRUE. ) 

To  : 

CALL  Z I ND4 ( A , . FALSE  ) 


11/4/88 


r  any 
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Subroutine  BIS  Continued 

6  lines  below  lebel  856 

Change : 

IF  ( I FLC . EQ . 0)  CO  TO  87 

To  : 

IF  (IFLC . EQ. 0 )  CO  TO  105 
Next  line  down 

Change : 

IF  (IFLG.EQ.2)  CO  828 

To  : 

IF  (IFLC  EQ. 2)  CO  TO  827 
Ne x t  line  down 

Change : 

IF  ( I ND 6(A) >  CO  TO  105 

To  : 

IF  ( I ND 6(A) )  CO  TO  827 
At  label  827 

Change : 

827  CALL  SCHEDL ( A , N8 1  3 , T+DT) 

CALL  ZEV IND ( A  > 1,3) 

CALL  BSORT(A) 

CO  TO  102 

To  : 

827  CALL  ZMODE ( A , 2 . 0 ) 

CALL  Z I  CAP ( A ,  . FALSE .  > 

CALL  ZTCT ( A , P ) 

CALL  ZNACRS ( P , NAGHS (?)♦!) 

Changes  made  to  CIAD  by  0.  Michael,  AFOTEC,  1786. 
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GLOSSARY 


ABBREVIATIONS, 

ADM2 

ADS 

AFOTEC 

ANSI 

AWACS 

CAA 

CAP 

COMIL 

COMO 

C3 

ECM 

ESJ 

FLOT 

GRC 

HIMAD 

IFF 

km 

MOE 

SHAPE 

SHORAD 

SOJ 

SSJ 

STC 

TRAC-WSMR 


ACRONYMS,  AND  SHORT  TERMS 

Air  Defense  Models  Modification  Study 
air  defense  suppression 

US  Air  Force  Operational  Test  and  Evaluation  Center 

American  National  Standards  Institute 

Airborne  Warning  and  Control  System 

US  Army  Concepts  Analysis  Agency 

combat  air  patrol 

COMO  Input  Language 

computer  modeling  system 

command,  control,  and  communications 

electronic  countermeasures 

escort  jammer 

forward  line  of  own  troops 
General  Research  Corporation 
high-to-medium  altitude  air  defense 
identification,  friend  or  foe 
kilometer(s) 

measure(s)  of  effectiveness 

Supreme  Headquarters  Allied  Powers,  Europe 

short-range  air  defense 

standoff  jammer 

self-screening  jammer 

SHAPE  Technical  Centre 

US  Army  TRADOC  Analysis  Command  -  White  Sands  Missile 
Range 
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TRAOOC  Training  and  Doctrine  Command 

VAX  8600  Digital  Equipment  Corporation  minicomputer 

2.  MODELS,  SIMULATIONS,  AND  ROUTINES 

CIAD  COMO  Integrated  Air  Defense  Model 

CISCIAD  Combat  Identification  Systems  COMO  Integrated  Air  Defense 

Model 
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